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;