eigenen Pointer unterbringen in TObject?

[Apollonius]

Ich denke, es ist einfacher, einen eigenen Speichermanager zu installieren und dann in FreeMem das Objekt aus der Tabelle zu nehmen. Dazu holst du dir mit GetMemoryManager(Ex) (das hängt von der Delphi-Version ab) den alten Speichermanager, ersetzt im Record den FreeMem-Zeiger und setzt das dann als neuen Speichermanager. In deinem eigenen FreeMem löschst du gegebenenfalls den Tabelleneintrag und rufst das alte FreeMem auf.

Das Hooken von TObject.FreeInstance mag zwar geringfügig schneller sein (da du beispielsweise nur Objekt-Freigaben mitbekommst und keine Feld-Wald-und-Wiesen-FreeMems), allerdings ist es auch erheblich unsauberer.