Сортировка массива из Listbox

void __fastcall TForm1::Button2Click(TObject *Sender)
{
        if (ListBox1->Items->Count==0) {
                ShowMessage("Ïóñòî!");
        }
        for (int k=ListBox1->Items->Count-1;k >=0;k--){
                if (ListBox1->Selected[k]) {
                        char *str = AnsiString(ListBox1->Items->Strings[k]).c_str();
                        //char str[] = "Eta Omicron Pi Alpha Espilon Kappa Mu Sigma Zeta Rho Xi Tau Phi Nu Psi Omega Beta Iota Gamma Chi Delta Theta Lambda Upsilon";
                        char* ptr, buf[32];
                        int i = 0;
                        for(ptr = str; (ptr = get_word_asc(buf, ptr, &i)) != NULL;)
                        Memo1->Lines->Add(buf);
                }
        }
 
}

char*  get_word_asc(char* dst, char* src, int* pos)
{
   int  id, cnt;
   char* ptr, *tmp, *str;
   char  chs[3] = {'\0'};
prev:
   tmp = str = src;
   chs[0] = *pos + 'A';
   chs[1] = *pos + 'a';
 
   while(1) {
         if((str = strpbrk(str, chs)) == NULL) {
              if( ++(*pos) < 26 )
                   goto prev;
              else
                   break;
         }
         id = 1;
         if((str - tmp) > 0)
               id = ! isalpha(*(str - 1));
         for(ptr = str + 1; isalpha(*ptr) && *ptr; *ptr++);
 
         if(id && ! isalpha( *ptr )) {
              cnt = ptr - str;
              strncpy(dst, str, cnt);
              strcpy(str, str + cnt);
             *((dst) + cnt) = '\0';
             break;
         } else
             str = ptr;
   }
   return (str) ? tmp : NULL;
}

char str[1000];
strcpy(str, AnsiString(ListBox1->Items->Strings[k]).c_str());