Ich hab mir noch nicht alles angeschaut
aber das riecht schon sehr nach einer Endlosschleife(n):
Delphi-Quellcode:
procedure Tform1.Stop_prüfen;
begin
if Zwischenspeicher.Count > 7 then begin
While Zwischenspeicher.Count > 7 do
Zwischenspeicher.Add ( #13#10 + 'Keine Termine');
end
Else
While Zwischenspeicher2.Count > 7 do
Zwischenspeicher2.Add ( #13#10 + 'Keine Termine');
end;
Und damit kann man viiel Speicher zuballern!
Gruß
K-H