donde está el error? :S

[[Lepe]]

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

[jorodgar]

asias por la ayuda