TMemo: Scrollen unterbinden

[TypusMensch]

Delphi-Quellcode:

procedure TForm1.Memo1Change(Sender: TObject);
var maximal:integer;
begin
maximal := 5;
if Memo1.Lines.Count>maximal then
  begin
  Memo1.Lines.Delete(0);
  Memo1.SelStart := length(Memo1.Lines.Text);
  end;
end;

Greetz.