donde está el error? :S

[jorodgar]

Tengo el siguiente codigo y el mensaje de error es el siguiente : Incompatible tipos string y TMemo

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

function Tform1.obtenermemo:Tmemo;
var
memo1:Tmemo;
begin
memo1:=Tmemo.Create(self);
memo1.Lines.Add('hola');
obtenermemo:=memo1;
end;

La verdad que ya he probado varias combinaciones y na de na. alguien sabe que sucede? Gracias.