兩個form之間傳值

利用以下方法：
在form1裡面編寫函數:
function ExecuteForm1(var S : string) : word;
var
    Form1 : TForm1;
begin

    Form1 := TForm1.createform(application);
    result := form1.showmodual;
    try
    if result = mrOK then
    begin
        S := 'OK';
    end;
    finally
    form1.free;
    end;
    
end;

在form1中添加按鈕button，在click事件裡寫代碼：
procedure Button1Click(sender:TObject);
begin
    ModalResult := mrOk;
end;

//-----------------------------------------------------------------

在form2裡面調用(首先必須uses form1單元)，例如在Button1的click事件裡
procedure Button1Click(sender:TObject);
var
    S:string;
begin
    if form1.ExecuteForm1(S) = mrOK then
    begin
    showmessage(S);
    end;
end;