eigenen Pointer unterbringen in TObject?

[stoxx]

Hallo Profis,

gibts eine Möglichkeit, in der VMT oder so, für jedes TObject noch einen eigenen Pointer zu platzieren und unterzubekommen?
Ab TComponent gäbe es die Tag Property.
Gibt es vielleicht noch eine vesteckte Möglichkeit und freier Platz in TObject? vielleicht für unwichtige Features?

Eher nicht, oder?

 ShowMessage(InttoStr (obj.InstanceSize )); zeigt 4 Byte an, finde aber keine deklarierte Variable in den Sourcen von TObject

[edit=mkinzler]Delphi-Tag eingefügt Mfg, mkinzler[/edit]