Establecer numero maximo lineas RichEdit o Memo

[[Ohcan]]

No me quedé nada a gusto con el post anterior...
Así que mejor sería, quizás, esto:

Código Delphi [-]
procedure TForm1.ElMemoKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
var
  MaxLines:Integer;
begin
  MaxLines := 2;
  while ElMemo.Lines.Count > MaxLines do
    ElMemo.Lines.Delete(ElMemo.Lines.Count-1);
end;

MaxLines lo he definido allí mismo... pero sería mejor que fuera una constante ...