Befehle optimieren für bessere Performance

[Hallo_Thomas]

Siehe Problem=> Davon habe ich 200 ca. Stück in der Procedure stehen, jedes Steuert ein Label an und ein Bild, hat jemand eine Idee wie ich das vereinfachen kann, Programm wird mit der Zeit immer langsamer

Delphi-Quellcode:

procedure TForm2.AddMyItem(const AItem: String; const AColor: TColor); 
begin 
Form1.Anzeige.Items.InsertObject(0, AItem, Pointer(AColor));

Delphi-Quellcode:

begin 
    Counter := 0; 
    for c2227 := Form1.Anzeige.count-1 DownTo 0 do 
begin 
    if StrToInt(Form1.Anzeige.Items[c2227]) in [0..21,28..100] then 
    Inc(Counter) 
    else if StrToInt(Form1.Anzeige.Items[c2227]) in [22..27] then 
    Counter := 0 ; 
    Form1.Label12.Caption:= IntToStr(Counter) ; 
end; 
end;////////Hier werden die Daten aus der Listbox gezogen um im Label den Count darzustellen

Es wird eigentlich immer nur ein Item hinzugefügt pro Procedurdurchlauf, bloss dadurch müssen die Labels immer wieder neu berechnet werden und dass sind im Moment annähernd 200 und da sollen eigentlich noch ein paar dazu kommen.
Ich habe mal einen Screenschoot der Systemleistung angehangen,im ersen Teil hab ich mal so ca. aller 2 Sekunten einen Durchlauf gemacht, dann mal hintereinander weg, und dann wieder so ca. aller 2 Sekunden, man sieht ddort sehr gut wie immer mehr rechenleistung
benötigt wird!

[Luckie]

Warum fäöngst du einen neuen Thread and? einer reicht. Hier gehts weiter: http://www.delphipraxis.net/internal...ct.php?t=53153