如何得到变量的名称？

Question

比如下面代码
procedure TForm1.Button1Click(Sender: TObject);
var
   tmpf:TForm;
begin
   tmpf:=TForm.Create(nil);
   tmpf.Name:='';
   tmpf.Caption:='';
   edit1.text:=tmpf //这里希望edit1里出现'tmpf'
end;该如何实现？

Answer 1

不是吧，大哥。我的意思是在别的地方能得到这个变量名称。比如在不同的环境下有很多不同的程序用不同的变量创造form。现在我知道了某个form的handle，怎样才能知道该form是用那个变量创造的。