procedure TForm1.AddMyItem(const AItem: String; const AColor: TColor);
var
  x,y,i : Integer;
  Counter : array[0..200] of Integer;
begin
  DoubleBuffered := True;
  Anzeige.Items.InsertObject(0, AItem, Pointer(AColor));
for i := 0 to 200 do
  for y := 0 to 144 do
  begin
    Counter[i] := 0;
    Feld[i] := 0;
  end;
  // Hier beginnen die Berechnungen
  for x := meineListe.count - 1 downto 0 do
  for y := 0 to 144 do // Mit jedem SetOfByte vergleichen
  begin
    if (StrToInt(meineListe.Strings[x]) in werte[y]) then
    begin
        Counter[y] := 0
    end
    else
    begin
      Inc(Counter[y]);
    end;
  end;
  ////////Hier beginnt Sortierverfahren
  begin
      Counter[145]:= Min(Counter[48],Min(Counter[50],Counter[52]));
  end;///.... Berechnungen gehen hier Weiter.....