Restricting TMemo length

Problem/Question/Abstract:

I was wondering if it were possible to restrict the number of lines in a TMemo.
For example my TMemo shall not allow to show more than 7 lines of text at once.

Answer:

Handle the OnChange event with the code below.

  
procedure TForm1.Memo1Change(Sender: TObject);
begin
  if Memo1.Lines.Count > 7 then
  begin
    MessageBeep($FFFFFFFF);
    Memo1.Lines.Delete(7);
  end;
end;