Сортировка строк в ListBox

[Lotles]

void __fastcall TForm1::Button4Click(TObject *Sender)
{
for(int j=0;j<ListBox1->Items->Count-1;j++){
    for(int i=0;i<ListBox1->Items->Count;i++){
    if (ListBox1->Items->Strings[j].Length()>ListBox1->Items->Strings[i].Length()){
    String min=ListBox1->Items->Strings[i];
    ListBox1->Items->Strings[i]=ListBox1->Items->Strings[j];
    ListBox1->Items->Strings[j]=min;
}
}
}
}

Не пойму почему не работает сортировка строк по длине
Алгоритм примерно такой:
1) Сравниваем все строки с первой
2)Если есть строки короче чем первая, меняем местами первую и которую короче первой
3)На данном этапе на первом месте должна стоять самая короткая строка

4)Теперь все повторяется, только сравниваем все строки со второй и меняем вторую и которая короче второй
итд

5)Теперь все повторяется, только сравниваем все строки с третьей до предпоследней

[volvo877]

Алгоритм примерно такой:

Это не то, что записано в коде. Исправь:

for(int i=j;i<ListBox1->Items->Count;i++) // У тебя было i = 0