Wobei du auf diese Weise auch immer mit False-Positives rechnen mußt
Die werden wie folgt ausgeschlossen:
1. Prüfung: Zeigt ein ausgerichteter Pointer auf die eigene Adresse+Offset 88?
2. Prüfung: Entspricht der Klassenname beim Offset 32 dem, was der als TObjectClass gecastete Pointer aus (1) als "ClassName" zurückgibt? ==> EAccessError, wenn keine Klasse
3. Prüfung (redundant): über InheritsFrom(TObject).
Wenn die Methodenzeiger für GetClassName und InheritsFrom auf irgendwas zeigen, dann knallt es - ergo: keine Klasse.