Bueno...
A mí se me ocurre:
Código Delphi
[-]
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