zufallszahlen in Stringgrid erzeugen und mit mergesort sort.

[dashund]

hallo,
ich habe ein problem bei dem oben genannten programm,
Die Zufallszahlen funktionieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var a,b:integer;
begin
 for b:=0 to 9 do
    for a:=0 to 9 do begin
       stringgrid1.Cells[a,b]:=inttostr(random(500));
    end;
end;

Nur ich komme bei mergesort nicht weiter, ich hab mir den quellcode aus den tutorials geholt nur, weiss ich nicht wie ich das einbinden soll mit den vairablen , hilfsarray und data. und wie ruft man merge sort durch einen button click dann auf ?!

also hier ersma der quellcode

Delphi-Quellcode:

Procedure MergeSort( l, r : Integer );
var i, j, k, m : Integer;
Begin
  If (l < r) Then
  Begin
    m:= (r+l) div 2;

    MergeSort( l, m  );
    MergeSort( m+1, r );

    For i:= l To m Do HilfsArray[i]:= Data[i];
    i:= l;

    For j:= m+1 To r Do HilfsArray[r+m+1-j]:= Data[j];
    j:= r;

    For k:= l To r Do
    Begin
      If (HilfsArray[i] < HilfsArray[j]) Then
      Begin
        Data[k]:= HilfsArray[i];
        inc( i );
      End
      Else
      Begin
        Data[k]:= HilfsArray[j];
        dec( j );
      End;
    End;
  End;
End;

brauch dringend hilfe, danke