Сортировка по цифре с литерой в стринг грид

 int Col_sort = 0;//колонка для сортировки
 String value;
 for (int i = 1; i < StringGrid1->RowCount; i++)
  for (int j = i; j < StringGrid1->RowCount; j++)
    {
    if (StringGrid1->Cells[Col_sort][i].ToInt()>StringGrid1->Cells[Col_sort][j].ToInt())
      {
      for(int k=0;k<StringGrid1->ColCount;k++)  // количество сортируемых столбцов
        {
        value=StringGrid1->Cells[k][i];
        StringGrid1->Cells[k][i]= StringGrid1->Cells[k][j];
        StringGrid1->Cells[k][j]=value;
        }
      }
    }

for (int i = 0; i <= iSelNum; i++)
            for (int j = iSelNum - 1; j > i; j--)
                if (strcmp(ss[j].aWorkType.c_str(), ss[j - 1].aWorkType.c_str()) < 0)
                {
                    h = ss[j];
                    ss[j] = ss[j - 1];
                    ss[j - 1] = h;
                }

#include <memory>
#include <Math.hpp>
//---------------------------------------------------------------------------
int __fastcall Sorter(TStringList *X, int i1, int i2)
{
   return CompareValue(StrToInt(X->Names[i1]), StrToInt(X->Names[i2]));
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   int tmp;
   String s;
   std::auto_ptr<TStringList> L (new TStringList);
   for(int i = SG->FixedRows; i < SG->RowCount; i++)
     {
        s = SG->Cells[0][i];
        s = TryStrToInt(s, tmp) ? s : s.SubString(1, s.Length() - 1);
        L->Add(String().sprintf(L"%s=%s", s, SG->Rows[i]->CommaText));
     }
   L->CustomSort(Sorter);
   for(int i = 0; i < L->Count; i++)
     SG->Rows[i + SG->FixedRows]->CommaText = L->ValueFromIndex[i];
}
//---------------------------------------------------------------------------

FROM Гаражи ORDER BY НомерГаража.....

    /* #include <stdio.h>  */
    TStringList *SL = new TStringList;
    for(int dg=0,ch='z',i=1;i<StringGrid1->RowCount;i++) {
     sscanf(StringGrid1->Cells[0][i].c_str(),"%d%c",&dg,&ch);
     String G1=String().sprintf("%.7d%c,",dg,ch);
     SL->Add(G1+StringGrid1->Rows[i]->CommaText);
    }
    SL->Sort(); 
    for(int p,i=1;i<StringGrid1->RowCount;i++) {
     if((p=SL->Strings[i-1].Pos(","))>0)
      StringGrid1->Rows[i]->CommaText=
        SL->Strings[i-1].SubString(p+1,SL->Strings[i-1].Length());
    }
    delete SL;

    TStringList *SL = new TStringList;
    for(int dg=0,ch='z',i=1;i<StringGrid1->RowCount;++i,dg=0,ch='z') {
      sscanf(StringGrid1->Cells[0][i].c_str(),"%d%c",&dg,&ch);
      SL->Add(String().sprintf("%.7d%c,%s",dg,ch,StringGrid1->Rows[i]->CommaText));
    }
    SL->Sort();
    for(int i=1;i<StringGrid1->RowCount;i++) StringGrid1->Rows[i]->CommaText=
      SL->Strings[i-1].SubString(10,SL->Strings[i-1].Length()-9);
    delete SL;

sscanf(StringGrid1->Cells[0][i].c_str(),"%d%c",&dg,&ch);
      SL->Add(String().sprintf("%.7d%c,%s",dg,ch,StringGrid1->Rows[i]->CommaText));

for(int dg = 0, ch = 'z', i = 1; i < StringGrid1->RowCount; ++i, dg = 0, ch = 'z') {
      sscanf(StringGrid1->Cells[0][i].c_str(), L"%d%c", &dg, &ch);
      SL->Add(String().sprintf(L"%.7d%c,%s", dg, ch, StringGrid1->Rows[i]->CommaText)); 
     }

sscanf(StringGrid1->Cells[0][i].c_str(), L"%d%c", &dg, &ch);

    TStringList *SL = new TStringList;
    for(int dg=0,ch='z',i=1;i<StringGrid1->RowCount;++i,dg=0,ch='z') {
      const char *buf = ((AnsiString)StringGrid1->Cells[0][i]).c_str(),
                     *msk = "%d%c";
      sscanf(buf,msk,&dg,&ch);
      SL->Add(String().sprintf(L"%.7d%c,%s",dg,ch,StringGrid1->Rows[i]->CommaText));
    }
    SL->Sort();
    for(int i=1;i<StringGrid1->RowCount;i++) StringGrid1->Rows[i]->CommaText=
      SL->Strings[i-1].SubString(10,SL->Strings[i-1].Length()-9);
    delete SL;