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;