Bubblesort einer Listbox. Mit 3 Verknüfungen

[Sascha_OW]

Hallo,

ich habe 4 Listboxen nebeneinander und die sollen nach einer bestimmten Listbox geordnet werden. Das ist so das ich 4 Werte in einer Zeile habe die alle zusammengehören.

Delphi-Quellcode:

procedure TForm1.Sort;
var
  i, j: integer;
  h,g,l,o: string;
begin
    Progressbar2.position := 0;
    progressbar2.Max := Listbox2.count -1;
    for i := 1 to Listbox2.count -1 do
     Progressbar2.position := Progressbar2.position + 1;
     for j := 1 to ListBox2.Items.Count - 1 do begin
        if Listbox2.Items[j] > Listbox2.Items[j-1] then begin
          h := Listbox2.Items[j];
          g := Listbox1.Items[j];
          l := Listbox3.Items[j];
          o := Listbox4.Items[j];
          Listbox2.Items[j] := Listbox2.Items[j-1];
          Listbox2.Items[j-1] := h;
          Listbox1.Items[j] := Listbox1.Items[j-1];
          Listbox1.Items[j-1] := g;
          Listbox3.Items[j] := Listbox3.Items[j-1];
          Listbox3.Items[j-1] := l;
          Listbox4.Items[j] := Listbox4.Items[j-1];
          Listbox4.Items[j-1] := o;
        end;
    end;
end;

aber irgendwie will er mir keine richtigen ergebnisse ausspücken

vielcith könnt ihr mir ja helfen