Zum einen ist ein TMemo eigentlich nur für die Anzeige gedacht.
Wilst Du es oder eine TStringlist nutzen könntest Du z.B. ungefähr so vorgehen:
Delphi-Quellcode:
procedure Hinzufügen(Liste:tstrings;satz:string);
begin
if Liste.count>Oberegrenze then
Liste.delete(0);
Liste.Add(satz);
end;
Besser wäre es gleich einen Ringpuffer zu nehmen. Ich meine hier hätte es schonmal was dazu gegeben im Zusammenhang mit Stack,FIFO usw., kann es aber nicht mehr wiederfinden.
Gruß
K-H