Gibt es ein Schnelleres verfahren als Min?

[Hallo_Thomas]

Delphi-Quellcode:

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.....