Compare two objects in Delphi and address the same [go]

In Delphi, the same is true of C #, where the address of an object is not the same as the address of an object variable (reference). To be distinguished.

Procedure Tform1.btn1click (Sender:tobject);

Var
P1:pointer;
P2:pointer;
Begin
If TObject (BTN1) = TObject (BTN2) then ShowMessage (' the same as ')
else ShowMessage (' dfferent ');
P1: = @btn1;
P2: = @btn2;
If p1 = P2 then ShowMessage (' the same as ')
else ShowMessage (' dfferent ');
End

Turn from: 7077294

Compare two objects in Delphi and address the same [go]