Pointer übergeben

[braingrenade]

Moin leute !

Ich hab folgendes Probelm :

Delphi-Quellcode:

Type Tx = object
     Py : ^Ty ; 
   procedure connectwith(pointer : ^Ty); 
end;

Type Ty = object
   zahl :integer,
 end;

procedure Tx.connectwith(pointer : ^Ty);
begin
Py := pointer;
end;

procedure programm;
var
  x : Tx;
  y : Ty;
begin
x.connectwith(@y);
end;

Also ich will praktisch mit einer Procedure die adresse von y an x.pointer übergeben , aber leider funzt's so nicht !

vielleicht hat jemand ne idee wie man das Lösen könnte!