如下:Uint myform1 ;
.....
implementationuses myform2;procedur myproc ;
begin
  edit1.text := form2.edit1.text ;
end ;
====================
Uint myform2 ;
.....
implementation
....