Maximálny počet riadkov je možné obmedziť tak, že pri udalosti OnChange sa odrežú “prečnievajúce” riadky.

procedure TForm1.Memo1Change(Sender: TObject);
begin
 if Memo1.Lines.Count = 251 then
   Memo1.Lines.Delete(0);
end;