Memo lines

[*Caro*]

Hola cmfab, puedes utilizar el evento OnKeyPress para capturar la tecla Enter:

Código Delphi [-]
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
 if (key=#13) then //si es enter
  begin
   if (KeyAnt=Key) then
    key:= #0
   else
    KeyAnt := Key;
  end
 else //sino ponemos cualquier valor
  KeyAnt := 'A';
end;

donde KeyAnt es una variable global de tipo Char.

Saluditos