Wie ermittelt man die Adresse der Instanz einer Komponente?

[BRobby]

Hallo zusammen,

ich bräuchte in einer Komponente die konkrete Adresse der Instanz dieser Komponente.
Also z. Bsp.

Delphi-Quellcode:

 
type 
   abc = class(tComponent)
     private
       p: Pointer;
       ...
     procedure P1;
   end;

IMPLEMENTATION

procedure abc.P1;
begin
  p:=@self;
  ...
end;

@self funktioniert nicht.

Wie geht es auf anderem Weg?