Преобразование TObject - LongInt

var x:LongInt;
begin
  x:=PtrUInt(Label1);
  TLabel(PtrUint(x)).Caption:='TestOK';
end;  

Проверено на Win64/Lazarus 2.0.8 - работает!