type
TForm1 = class(TForm)
public
aa: string;
end;
TForm2 = class(TForm)
public
bb: string;
end;
procedue TForm1.Button1Click(Sender);
begin
with TForm2.Create(Application) do
try
bb:=Self.aa;//[[[[[[[[[[[[[[[[[[[[[[[[[
ShowModal;
finally
Free;
end;
end;