Die
VMT ist eine Tabelle für jede Klasse. Nicht für jedes Objekt. Jedes Objekt hat einen Zeiger auf die
VMT seiner Klasse (damit arbeiten dann auch as und is); das sind genau die 4 Byte einer TObject-Instanz.
Um ein Feld nachträglich unterzubringen, musst du extern eine Tabelle (z.B. Hashmap) verwalten, die für jede Objektinstanz das Feld hält. Einen anderen Weg gibt es leider nicht. Dummerweise gibt es in Delphi keine Garbage Collection, weshalb das Freigeben des Platzes in der Tabelle schwierig ist. Am besten hookst du dazu TObject.FreeInstance, dort kannst du dann aufräumen.