Establecer numero maximo lineas RichEdit o Memo

[[Ohcan]]

Bueno...
A mí se me ocurre:

Código Delphi [-]
 //En el evento OnChange (da igual para Memo que para RichEdit)
 procedure TForm1.Memo1Change(Sender: TObject);
 begin
   if memo1.Lines.Count > 9 then ShowMessage('No se pueden añadir más líneas');
 end;

sustituyendo el 9 por el número/variable/constante que prefieras.
y el showmessage por algo que borre las lineas que sobran (Memo.Lines.Delete(I)
Saludos