Memo limitado.

[Julià T.]

hola a todos
puedes colocar un código parecido a:

procedure TForm1.Memo1Change(Sender: TObject);
begin
While Memo1.Lines.Count>3 do
Memo1.Lines.Delete(Memo1.Lines.Count-1);
end;

con lo que borrarás cualquier linea que se intente poner a partir de la tercera