Wie ermittelt man die Adresse der Instanz einer Komponente?

[Kas Ob.]

Simpler ideas:

Code:

procedure TForm10.FormCreate(Sender: TObject);
var
  P: Pointer;
  T: TForm10 absolute P;
begin
  P := Addr(Self);
  P := PPointer(P)^;
end;