Zahlensortierfunktion und noch eine Frage!

[Basti552]

Ok, ich habe das Sortieren jetzt ausprobiert aber ich habe folgendes Problem:

Delphi-Quellcode:

procedure Quick_Sort(var A: array of Integer);

procedure QuickSort(var A: array of Integer; iLo, iHi: Integer);
var
   Lo, Hi, Mid, T: Integer;
 begin
   Lo := iLo;
   Hi := iHi;
   Mid := A[(Lo + Hi) div 2];
   repeat
     while A[Lo] < Mid do Inc(Lo);
     while A[Hi] > Mid do Dec(Hi);
     if Lo <= Hi then
     begin
       T := A[Lo];
       A[Lo] := A[Hi];
       A[Hi] := T;
       Inc(Lo);
       Dec(Hi);
     end;
   until Lo > Hi;
   if Hi > iLo then QuickSort(A, iLo, Hi);
   if Lo < iHi then QuickSort(A, Lo, iHi);
 end;

begin
 QuickSort(A, Low(A), High(A));
end;

Und die Methode für Button3:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
 arr: array[0..100] of integer;
 I: Integer;
begin
 for I:=Low(arr) to High(arr) do
   arr[I]:=Random(High(Integer));

 Quick_Sort(arr);
end;

Wenn ich diesen Quelletext eingebe und ich dann auf den Button drücke passiert gar nichts!

[edit=Sharky]Delphi-Tags gesetzt. Mfg, Sharky[/edit]