donde está el error? :S

[jorodgar]

Nada, no hay manera de hacer una funcion que devuelva un TMemo1.

Ni lo mas simple funciona : Memo2 es un memo en el formulario con datos.
Lo que sucede es que memo1 no se llena con los datos del memo2.

procedure TForm1.Button3Click(Sender: TObject);
begin
memo1:=obtenermemo;
end;

function Tform1.obtenermemo:Tmemo;
begin
obtenermemo:=memo2;
end;

[[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