Отсортировать в алфавитном порядке данные в 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;

int __fastcall dSort(TStringList *X, int i1, int i2)
{
   return CompareValue(StrToInt(X->Names[i1]), StrToInt(X->Names[i2]));
}
//---------------------------------------------------------------------------
int __fastcall fSort(TStringList *X, int i1, int i2)
{
   return CompareValue(StrToFloat(X->Names[i1]), StrToFloat(X->Names[i2]));
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   if(RadioGroup1->ItemIndex == -1) return;
   std::auto_ptr<TStringList> L (new TStringList);
   for(int i = StringGrid1->FixedRows; i < StringGrid1->RowCount; i++)
     L->Add(String().sprintf("%s=%s", StringGrid1->Cells[RadioGroup1->ItemIndex][i], StringGrid1->Rows[i]->CommaText));
   switch(RadioGroup1->ItemIndex) {
     case 0 :
     case 1 : L->Sort(); break;
     case 2 :
     case 3 :
     case 4 : L->CustomSort(dSort); break;
     case 5 : L->CustomSort(fSort);
   }
   for(int i = 0; i < L->Count; i++)
     StringGrid1->Rows[i + StringGrid1->FixedRows]->CommaText = L->Strings[i].SubString(L->Names[i].Length() + 2, MaxInt);
}