Cambiar de linea en un Memo

[creus]

Como puedo cambiar de linea en un Memo pulsando la tecla ENTER?

Ej: Santiago estaba [enter,#13] linea1
comiendo linea2



Gracias por la ayuda

[marcoszorrilla]

Esta es la idea:

procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Lines[1]:=memo1.Lines[1]+' comiendo un plátano.';
end;

Un Saludo.