Befehle aus Listbox ausgliedern?

[Hallo_Thomas]

Habe dieser Art Befehl eindeutig zuviele in der Listbox stehen;
kann ich den Befehl irgendwohin ausgliedern, damit die Listbox wieder schneller wird?

Delphi-Quellcode:

begin
      Counter := 0;
      for g := MeineListe.count-1 DownTo 0 do
        begin
        if StrToInt(MeineListe.Strings[g]) in [1,3,10] then
          Inc(Counter)
            else if StrToInt(MeineListe.Strings[g]) in [6] then
              Counter := 0 ;
              Label1.Caption:= IntToStr(Counter) ;
        end;
      end;

Danke