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 ...