Mergesort sortiert nicht...

[DAZZLE]

Hallo,
Ich hoffe ihr könnt mir mit meinem Code weiterhelfen den ich mir mühevoll aufgebaut oder zusammengesucht habe und der leider nicht so läuft...
Habe schon in der Suche geschaut aber leider nichts gefunden.

Also das ist mein Mergesort.

Danke schon mal im voraus!

(Habe nur den Ausschnitt Kopiert der nicht funktioniert...)

Delphi-Quellcode:

procedure TForm1.btu_SortierenClick(Sender: TObject);
var
vZaehlerEinlesen:integer;

begin

//Einlesen der Listbox in das List-Array

 For vZaehlerEinlesen:=0 to cZahlen-1 do
 begin
 List[vZaehlerEinlesen+1]:=strtoint(Ltb_Eingabe.Items[vZaehlerEinlesen]);
 end;


 Mergesort(List[vZaehler1]);
 for vZaehler1:=0 to cZahlen do
 begin
 ltb_Ausgabe.Items.Add(IntToStr(List[vZaehler1]));
 end

end;//procedure TForm1.btu_SortierenClick(Sender: TObject);


//******************************************************************************

{
Rekursion (=/ iterativ):
Bei der rekursiven Programmierung ruft sich eine Prozedur,
Funktion oder Methode in einem Computerprogramm selbst wieder auf.
}

procedure TForm1.Mergesort(var List:array of integer);
var
vlaenge,vZahlx,vZahly,vZahlz :integer;
h_array1, h_array2  :array of integer;

begin

//Festlegen der längen der Beiden SortierArrays
vlaenge:= length(List);
Setlength (h_array1, vlaenge div 2);
Setlength (h_array2,(vlaenge + 1) div 2);

//Aufteilen des ListArrays auf die Einzelarrays
for vZahlx:=0 to vlaenge div 2 - 1 do 
  begin
  h_array1[vZahlx]:=List[vZahlx];
  end;

for vZahly:=0 to (vlaenge + 1) div 2 - 1 do
  begin
  h_array2[vZahly]:=List[vZahly+((vlaenge) div 2)];
  end;

// Sortieren der Array mit "mergesort"
if vlaenge > 2 then
  begin
  mergesort(h_array1);
  mergesort(h_array2); 
  end;

  vZahlz:=0;

//
while (length(h_array1) <> 0) and (length(h_array2) <>0) do 
  begin 
  If h_array1[0] < h_array2[0] then 
    Begin
    List[vZahlz] := h_array1[0];

    for vZahlx:=0 to length(h_array1)-2 do
      h_array1[vZahlx]:=h_array1[vZahlx+1];

    Setlength (h_array1,length(h_array1)-1);
    end 
  Else 
    begin
    List[vZaehler1]:=h_array2[0];

    for vZahly:=0 to length(h_array2)-2 do
      h_array2[vZahly]:=h_array2[vZahly+1];

    setlength(h_array2,length(h_array2)-1);
    end;
  vZaehler1:=vZaehler1+1;
  end; 

if length(h_array1)<>0 then
  for vZahlx:=0 to length(h_array1)-1 do
    begin 
    List[vZaehler1]:=h_array1[vZahlx];
    vZaehler1:=vZaehler1+1; 
    end; 

if length(h_array2)<>0 then
  for vZahly:=0 to length(h_array2)-1 do
    begin
    List[vZahlz]:=h_array2[vZahly];
    vZaehler1:=vZaehler1+1;
    end;


end;//procedure TForm1.btu_ZufallClick(Sender: TObject);

[edit=SirThornberry]Titel geändert denn Hilfe braucht jeder und auch das gewählte Forum sagt dies bereits aus - Mfg, SirThornberry[/edit]