Programm läuft eindeutig zu langsam

[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));

Das Problem

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 ;
[pre]Form1.Label12.Caption:= IntToStr(Counter) ;
end;
end;////////Hier werden die Daten aus der Listbox gezogen um im Label den Count darzustellen
 begin if counter<=c637n Then begin
  Form1.Image12.Picture := nil;
  Form1.Label12.font.color:=CLgreen;
  Form1.Label12.Caption:=''
  end;
begin if counter=c637b Then begin
  Form1.Image12.Picture.LoadFromFile(PChar(ExtractFilePath(ParamStr(0))) + 'Chipblau.bmp'); //////////die Bilder erscheinen jedesmal
  Form1.Label12.font.color:=CLWhite;
  end;
begin if counter=c637g Then begin
Form1.Image12.Picture.LoadFromFile(PChar(ExtractFilePath(ParamStr(0))) + 'Chipgelb.bmp');
Form1.Label12.font.color:=CLblack
end else if counter=c637p Then begin
Form1.Image12.Picture.LoadFromFile(PChar(ExtractFilePath(ParamStr(0))) + 'Chippink.bmp');
Form1.Label12.font.color:=CLwhite;///Hier wird dem Label das entsprechende Bild hinzugefügt
end;
end;
end;
end;