¿Como capturar el ultimo lines.text de un Memo?

[Ruben_Cu]

Hola danytorres, simplificando un poco el código que te envió cso2000 te propongo que pruebes con:

procedure TForm1.Button1Click(Sender: TObject);
begin
        with Memo1 do Edit1.text:=Lines[Lines.Count-1];
end;

Saludos