Einbinden von Quicksort in Procedure

[Hallo_Thomas]

Ich wollte gern diese Zeile als Quicksortbefehl schreiben.
Und Zwar in sollte sie in die untere Procedure eingebunden sein.Ich habe bis jetzt nur eigene Proceduren zu Quicksort gefunden. Wie kann kann mann so was machen?

Counter[145]:= Min(Counter[48],Min(Counter[50],Counter[52]));

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