hola a todos
puedes colocar un código parecido a:
Cita:
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