如何从integer变量（由integer(@object)得到）返回对象
var
i:integer;
et:tedit;
begin
et:=tedit.create(nil);
i:=integer(@et);
end;

以后如何通过i值得到et对象的引用

[解决办法]
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
et:tedit;
begin
et:=tedit.create(nil);
et.Text := 'abc ';
i:=integer(et);
ShowMessage(TEdit(i).Text);
et.Free;

end;