Отсортировать в алфавитном порядке данные в StringGrid

TStringList *SL = new TStringList;
String S;
 
for (int i=0;i<StringGrid1->RowCount;i++)
    {
    S=" ";
    for (int j=1;j<StringGrid1->ColCount;j++)
    S += StringGrid1->Cells[j][i]+" ";
    SL->Add(S);
    }
 
SL->Sort();
 
for (int i=0;i<StringGrid1->RowCount;i++)
    {
     StringGrid1->Rows[i]->DelimitedText = SL->Strings[i];
    }
delete SL;

//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 TStringList *lst  = new TStringList;
 TStringList *lst1 = new TStringList;
 
 int col_sort =0;  //номер колонки для сортиовки
 
 for(int i=0;i<StringGrid1->RowCount;++i)    //загоняем все в лист и через разделительный знак запоминаем номер строки, что бы после все передвинуть
    lst->Add(StringGrid1->Cells[col_sort][i]+"~"+IntToStr(i));
 
 lst->Sort();   //Сортируем
 
 for(int i=0;i<StringGrid1->RowCount;++i)   //Делаем дупликат таблицы,что бы поней после пересобрать основную
   lst1->Add(StringGrid1->Rows[i]->Text);
 
 for(int i=0;i<StringGrid1->RowCount;++i)     //Строим отсортированую таблицу
  StringGrid1->Rows[i]->DelimitedText =  lst1->Strings[lst->Strings[i].SubString(lst->Strings[i].Pos("~") + 1,lst->Strings[i].Length()).ToInt()]  ;
 
 delete lst,lst1;
}
//---------------------------------------------------------------------------

        // находим имя нажимаемой кнопки     ButtonName;
        AnsiString  ButtonName = ((TSpeedButton*) Sender)->Name;
        // удаляем из полученного имени "SpeedButton" и остается сам номер кнопки
        ButtonName.Delete(1, 11);// удаляю с 1 по 11 символ в имени "SpeedButton"
            p = ButtonName.ToInt();
        if (p > 0)  StringGrid1 ->Col = p; // установка на колонку № р
          }else
          {
             p = RadioGroup_menusort->ItemIndex +4;// здесь дополнительно выбираем номер кнопки (имя, фамилия ... и т.д.)
          }
        StringGrid1 ->Row = 0; // перемещение курсора в верхнюю строку
        float progres = StringGrid1->RowCount ;
             progres = 100/progres;
        ProgressBar_sortirovka->Visible = true;
   String buff;
   int minimal = 0;
 
  for (int i = 0; i < StringGrid1->RowCount-1; i++)// начинаю с первой строки
   {      minimal = i;// номер строки для перемещения
          buff = StringGrid1->Cells[p][i];
   for (int j = i+1; j < StringGrid1->RowCount; j++)// проверяю строку
    {
     if (buff> StringGrid1->Cells[p][j]
      && !sort_napravlenie //== false
        )//[здесь номер искомой колонки][j]
     {
           minimal = j;// находим минимальный размер строки
           buff = StringGrid1->Cells[p][j];
     }
   else  if (buff < StringGrid1->Cells[p][j]
      && sort_napravlenie //== true
        )//[здесь номер искомой колонки][j]
     {
           minimal = j;// находим максимальный размер строки
           buff = StringGrid1->Cells[p][j];
     }
    }// конец поиска строки
// перемещение минимальной строки на очередной номер
    if (minimal != 0)
    {
   StringGrid1->Rows [StringGrid1->RowCount +1] = StringGrid1->Rows[i];
   StringGrid1->Rows[i] = StringGrid1->Rows[minimal];
   StringGrid1->Rows [minimal] = StringGrid1->Rows [StringGrid1->RowCount +1];
    }
    ProgressBar_sortirovka->Position =  progres*i ;
    Application->ProcessMessages();
    
    }
 
//---------- очистка буффера и удаление "временной" строки ---------------------
             StringGrid1->Rows[ StringGrid1->RowCount + 1]->Clear();// очистка последней строки
 
    ProgressBar_sortirovka->Visible = false;
 
}
//............... конец программы Сортировка ...................................

 TStringList *lst  = new TStringList;
 TStringList *lst1 = new TStringList;
 
 int col_sort =0;  //номер колонки для сортиовки
 
 for(int i=1;i<StringGrid1->RowCount;++i)    //загоняем все в лист и через разделительный знак запоминаем номер строки, что бы после все передвинуть
    lst->Add(StringGrid1->Cells[col_sort][i]+"~"+IntToStr(i));
 
 lst->Sort();   //Сортируем
 
 for(int i=0;i<StringGrid1->RowCount;++i)   //Делаем дупликат таблицы,что бы по ней после пересобрать основную
   lst1->Add(StringGrid1->Rows[i]->Text);
 
 for(int i=0;i<lst->Count;++i)     //Строим отсортированую таблицу
  StringGrid1->Rows[i+1]->DelimitedText =lst1->Strings[lst->Strings[i].SubString(lst->Strings[i].Pos("~") + 1,lst->Strings[i].Length()).ToInt()]  ;
 
 delete lst,lst1;