Performanceproblem mit ca. 30000 Listboxeinträgen

[Hallo_Thomas]

Ich habe jetzt noch mal die letzten Tage probiert und gemacht aber ich komme irgenwie kein Stückchen vorran! Ich versuche die Geschwindigkeit des Programms im Anhang zu erhöhen, im Moment benötigt es für 30000 zahlen ca. 34s Zeit egal ob ich nun Stringliste benute oder ob ich für

Delphi-Quellcode:

for pl0 := Form1.Anzeige.count - 1 downto 0 do 
    begin 
      for x := 0 to 81 do 
      begin 
        if StrToInt(Form1.Anzeige.Items[pl0]) in werte[x] then 
          Counte[x] := 0

diese Zeile einsetze

Delphi-Quellcode:

for pl0 := 2 downto 0 do 
    begin 
      for x := 0 to 81 do 
      begin 
        if StrToInt(Form1.Anzeige.Items[pl0]) in werte[x] then 
          Counte[x] := 0

es ist auch egal ob ich Anzeige.Items.BeginUpdate; einsetze. Der Berechnungszeitraum bleibt bei 34s.

Delphi-Quellcode:

var 
  x, i, pl0, Counter: Integer; 
  cg, cb            : double; 
  counte            : array[0..81] of Integer; 
  werte             : array[0..81] of mySet; 
begin 
  Anzeige.Items.BeginUpdate; 
   Label999.Caption:=IntToStr(Anzeige.Items.Count); 
  Anzeige.Items.InsertObject(0, AItem, Pointer(AColor)); 
  DoubleBuffered := True; 
  cg := (Form2.SpinEdit1.Value); 
  cb := (Form2.SpinEdit2.Value); 
    begin 
    for i := 0 to 81 do 
    begin 
      Counte[i] := 0; 
    end; 
    werte[0] := [1]; 
    werte[1] := [2]; 
    werte[2] := [3]; 
    werte[3] := [4]; 
    werte[4] := [5]; 
    werte[5] := [6]; 
    werte[6] := [7]; 
    werte[7] := [8]; 
    werte[8] := [9]; 
    werte[9] := [10]; 
    werte[10]:= [11]; 
    werte[11]:= [12]; 
    werte[12]:= [1,2]; 
    werte[13]:= [1,3]; 
    werte[14]:= [1,4]; 
    werte[15]:= [1,5]; 
    werte[16]:= [1,6]; 
    werte[17]:= [1,7]; 
    werte[18]:= [1,8]; 
    werte[19]:= [1,9]; 
    werte[20]:= [1,10]; 
    werte[21]:= [1,11]; 
    werte[22]:= [1,12]; 
    Werte[23]:= [1,2,3]; 
    werte[24]:= [1,2,4]; 
    werte[25]:= [1,2,5]; 
    werte[26]:= [1,2,6]; 
    werte[27]:= [1,2,7]; 
    werte[28]:= [1,2,8]; 
    werte[29]:= [1,2,9]; 
    werte[30]:= [1,2,10]; 
    werte[31]:= [1,2,11]; 
    werte[32]:= [1,2,12]; 
    werte[33]:= [1,2,3,4]; 
    werte[34]:= [1,2,3,5]; 
    werte[35]:= [1,2,3,6]; 
    werte[36]:= [1,2,3,7]; 
    werte[37]:= [1,2,3,8]; 
    werte[38]:= [1,2,3,9]; 
    werte[39]:= [1,2,3,10]; 
    werte[40]:= [1,2,3,11]; 
    werte[41]:= [1,2,3,12]; 
    werte[42]:= [1,2,4,5]; 
    werte[43]:= [1,2,4,6]; 
    werte[44]:= [1,2,4,7]; 
    werte[45]:= [1,2,4,8]; 
    werte[46]:= [1,2,4,9]; 
    werte[47]:= [1,2,4,10]; 
    werte[48]:= [1,2,4,11]; 
    werte[49]:= [1,2,4,12]; 
    werte[50]:= [1,2,5,6]; 
    werte[51]:= [1,2,5,7]; 
    werte[52]:= [1,2,5,8]; 
    werte[53]:= [1,2,5,9]; 
    werte[54]:= [1,2,5,10]; 
    werte[55]:= [1,2,5,11]; 
    werte[56]:= [1,2,5,12]; 
    werte[57]:= [1,2,6,7]; 
    werte[58]:= [1,2,6,8]; 
    werte[59]:= [1,2,6,9]; 
    werte[60]:= [1,2,6,10]; 
    werte[61]:= [1,2,6,11]; 
    werte[62]:= [1,2,6,12]; 
    werte[63]:= [1,2,7,8]; 
    werte[64]:= [1,2,7,9]; 
    werte[65]:= [1,2,7,10]; 
    werte[66]:= [1,2,7,11]; 
    werte[67]:= [1,2,7,12]; 
    werte[68]:= [1,2,8,9]; 
    werte[69]:= [1,2,8,10]; 
    werte[70]:= [1,2,8,11]; 
    werte[71]:= [1,2,8,12]; 
    werte[72]:= [1,2,9,10]; 
    werte[73]:= [1,2,9,11]; 
    werte[74]:= [1,2,9,12]; 
    werte[75]:= [1,2,10,11]; 
    werte[76]:= [1,2,10,12]; 
    werte[77]:= [1,2,11,12]; 
    werte[78]:= [1,2,3,4,5]; 
    werte[79]:= [1,2,3,4,5,6]; 
    werte[80]:= [1,2,3,4,5,7]; 
    werte[81]:= [1,2,3,4,5,8]; 

    for pl0 := Form1.Anzeige.count - 1 downto 0 do 
    begin 
      for x := 0 to 81 do 
      begin 
        if StrToInt(Form1.Anzeige.Items[pl0]) in werte[x] then 
          Counte[x] := 0 
        else 
          Inc(Counte[x]); 
      end; 
      for x := 0 to 81 do 
      begin 
        (FindComponent('Label' + IntToStr(x + 2)) as TLabel).Caption := 
          IntToStr(Counte[x]); 
      end; 
    end; 
  end;

Anzeige.Items.endUpdate;
end;