Delphi-Quellcode:
Pointer(Obj) := Self;
...
Ich glaube aber nicht das dynamische
GUID hier überhaupt nötig sind.
Eine Ableitung von TInterfacedObject sollte für die Basisklasse genügen.
Für die Kompatibilität zu
COM-Objekten sollte IUnknown unterstütz, bzw. die anderen Interfaces sollten davon abgeleitet werden.