我调用一个窗体，当窗体关闭时，需要返回一个字符串，怎么做？

Question

我调用一个窗体，当窗体关闭时，需要返回一个字符串，怎么做？
如：
procedure form1.button1click(sender: Tobject)
var
  AForm: TForm;
begin
  AForm:= TForm.create(nil);
  Aform.ShowModal;
  //如何在这里取得Aform返回的一个字符串？
end;

Answer 1

1、定义一个全局变量ResultStr；
2、在窗口的OnClose事件中：ResultStr:='窗口已关闭！'；
3、可以在工程的任何地方引用ResultStr；

Answer 2

public
    { Public declarations }
    sReturnValue: String;
  end;
或者
var
  Form1: TForm1;
  sReturnValue: String;
在窗口中对sReturnValue读写，showmodal完毕之后，取了sReturnValue的值（Form1.sReturnValue）再释放窗口实例

Answer 3

对于第二种定义方法，直接访问sReturnValue即可（前面不需要加Form1.）