[Alejo15x]

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Memo1.Lines := Memo1.Lines;
end;