Haber dicho desde un principio lo que querias
Código Delphi
[-]
function tform1.obtenermemo:tmemo;
begin
Result := Form1.memo2;
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
Memo1.Lines.Assign(obtenermemo.lines);
end;
En tu mensaje anterior, en button3Click escribe:
Código Delphi
[-]
Memo1 := obtenermemo;
memo1.lines.Add('¿En que memo sale este mensaje en el 1 o el 2?');
Y verás lo que estas haciendo
. Ahora mira la ayuda de Assign para comprobar que es lo que hace.
Un saludo