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 begin
if (KeyAnt=Key) then
key:= #0
else
KeyAnt := Key;
end
else KeyAnt := 'A';
end;
donde KeyAnt es una variable global de tipo Char.
Saluditos