Recherche:

Ou alors tu te fais ton composant Memo perso qui gère un nombre de ligne maximum. :P

Sur le OnKeyPress du Memo tu mets ça :

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
if (TMemo(Sender).Lines.Count = (NbLignesMax - 1)) and (Key = #13) then Key := #0;...

Sur le OnChange tu dois pouvoir tester le nombre de ligne grace à la propriété
Memo1.Lines.Count
Donc tu annules la frappe quand tu as le nombre max de ligne.