Moin Gogi,
nur mal so als Idee (ungetestet):
Prüfe im OnChange Ereignis, den Wert der maximalen Zeilenzahl und lösche alle darüber liegenden Zeilen.
Beispiel:
Delphi-Quellcode:
procedure TForm1.RichEdit1Change(Sender: TObject);
const
_iMaxLines = 5;
begin
if RichEdit1.Lines.Count > _iMaxLines then
begin
while (RichEdit1.Lines.Count) > _iMaxLines do
begin
RichEdit1.Lines.Delete(RichEdit1.Lines.Count-1);
end;
end;
end;