TStringList *Lista = New TStringList
Lista->Add("A")
Lista->Add("AB")
Lista->Add("AC")
Lista->Add("B")
Lista->Add("BA")
Lista->Add("C")
...
Lista->Sorted;
for (int i=0;i<Lista>Count;i++)
{
ListBox1 ->Items->Text = Lista->Text
}