verschieben von befehlen aus der Lisbox1 nach label1

[Hallo_Thomas]

Und zwar habe ich mehrer Befehle dieser Art in meine Listbox geschrieben:

Delphi-Quellcode:

procedure TForm1.AnzeigeDrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
  var
  g, Counter: Integer;
begin
Counter := 0;
for g := Anzeige.Count-1 DownTo 0 do 
  if StrToInt(Anzeige.Items[g]) in [1,3,7] then 
    Inc(Counter) 
  else if StrToInt(Anzeige.Items[g]) in [6] then 
    Counter := 0;
Label1.Caption:= IntToStr(Counter) ;
end;
end;

Das Problem ist nun meine Listbox baut sich zu langsam auf, da ich viele solcher Routinen dort drin hab.
Wie könnte ich den Befehl formulieren damit er in Label1 steht, bzw.damit die Listbox wieder schneller wird

[Harry M.]

wo ist den die *.pas ???

[Hallo_Thomas]

Ups, kommt glei

[Khabarakh]

Warum im OnDrawItem? So wird ja bei jedem Repaint für jedes einzelne Item der gleiche Code aufgerufen, ohne dass sich etwas ändert. Ich würde den Code nur nach dem Hinzufügen eines Items ausführen.

[freak4fun]

Ist villeicht ein Case of Block schneller?

MfG
freak

[Hallo_Thomas]

OnDrawItem, damit die Zahlen verschiedende Farben haben,hab oben im Quellcode die Befehle gelöscht, der Übersichtlichkeit zu liebe.