Programm läuft eindeutig zu langsam

[Hallo_Thomas]

Dass Problem muss Hier Irgendwo liegen

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

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!
Kann es sein dass die Berechnung aus einer Stringliste herraus schneller wäre?