Hilfe zum programmieren von mergesort mit delphi

[Klaus01]

Delphi-Quellcode:

const n=10; 
type tab=array[1..n] of integer; 
var t:tab; 

type data=array[1..n] of integer; 
var d:data; 

procedure TForm1.Button1Click(Sender: TObject); 
  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 
          t[i]:= D[i]; 
        i:= l; 

        For j:= m+1 To r 
          Do t[r+m+1-j]:= D[j]; 
        j:= r; 

        For k:= l To r Do 
          Begin 
            If (t[i] < t[j]) Then 
              Begin 
                D[k]:= t[i]; 
                inc( i ) ; 
              end 
            Else 
              Begin 
                D[k]:= t[j]; 
                dec( j ); 
              end; 
            
            for i:=1 to n do 
              listbox1.Items.add(inttostr(t[i])); 
          end; (*hier kommt ein fehler, und ich weiß nicht,wie ich das beheben kann*) 
      end; 
  end; 
end.

Die Prozedur mergeSort ist keine Methode
Deiner Klasse TForm, daher kennt die Prozedur die lustbix nicht.

Grüße
Klaus