表单之间的控件赋值 (100分)

function form2.showwin():String;
begin
form2:=Tform2.create(Nil);
form2.ShowModal;
Result:=Edit1.text;
end;
form1.edit2.text:=form2.showwin();
出现如下错误
[Error] Unit2.pas(35): Undeclared identifier: 'edit1'
[Error] Unit2.pas(36): Statement expected, but expression of type 'Text' found
[Fatal Error] Unit1.pas(24): Could not compile used unit 'Unit2.pas'

1.uses unit2
2.Result := Form2.Edit1.text;

在implementation下面uses form2的程序文件;
result:=form2.edit1.text;

with TForm2.Create(nil) do
begin
ShowModal;
Result:=Edit1.text;
Free;
end;

同意WWOLF和SICHUAN的看法