Problem mit Bubblesort bei StringListen

[ManuMF]

Hallo,

Zuerst: Ich muss BubbleSort verwenden, also bitte keine davon abweichenden Lösungsvorschläge

Also, ich habe mehrere StringListen, von denen ich alle nach einer sortieren möchte.
Mein Code:

Delphi-Quellcode:

var ZeileA, ZeileB : Cardinal;
    ListeX : TStringList;

begin
  For ZeileA := 0 to (Liste1.Count - 1) do
  begin
    for ZeileB := (ZeileA + 1) to (Liste1.Count -1) do
    begin
      If (Liste1.Strings[ZeileA] > Liste1.Strings[ZeileB]) then
      begin
        Liste1.Exchange(ZeileA, ZeileB);
        Liste2.Exchange(ZeileA, ZeileB);
        Liste3.Exchange(ZeileA, ZeileB);
        Liste4.Exchange(ZeileA, ZeileB);
        Liste5.Exchange(ZeileA, ZeileB);
        Liste6.Exchange(ZeileA, ZeileB);
      end;
    end;
  end;
end;

Das Problem: Liste1 ist perfekt sortiert, aber stimmt nicht mehr mit den anderen über ein.

Delphi-Quellcode:

// Beispiel:

Liste1 Liste2 Liste 3
// Vorher
B      1      456
A      0      123
C      2      789
// Nachher
A      1      456
B      0      123
C      2      756

Woran könnte das liegen?

Danke,
ManuMF