procedure TForm1.Memo1Change(Sender: TObject); begin if Memo1.Lines.Count>3 then begin Memo1.Undo; end;
Memo1.Perform(EM_EMPTYUNDOBUFFER, 0, 0); end;