Двойная сортировка в StringGrid

int sf = StringGrid1->RowCount;
   for(int i=1;i<sf;i++)
     sl->Add(StringGrid1->Cells[4][i]+StringGrid1->Rows[i]->CommaText);
     sl->Sort();
     for(int i = StringGrid1->FixedRows; i < StringGrid1->RowCount; i++)
       {
       StringGrid1->Rows[i]->CommaText = sl->Strings[i - StringGrid1->FixedRows];
       StringGrid1->Cells[0][iDigi] = iDigi;
       iDigi++;
       }
   iDigi = 1;

struct Sorter : public TObject
{
    String FType;
    String FAddr;
 
    Sorter(String type, String addr) : TObject(), FType(type), FAddr(addr)
    {
    }
};
 
int __fastcall MyCompare(TStringList *List, int I1, int I2)
{
    Sorter *s1 = static_cast<Sorter*>(List->Objects[I1]);
    Sorter *s2 = static_cast<Sorter*>(List->Objects[I2]);
    if (s1->FType == s2->FType)
        return CompareStr(s1->FAddr, s2->FAddr); // Одинаковые характеры - сортируем адреса
    else
        return CompareStr(s1->FType, s2->FType); // Сортируем по характеру заявки
}
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    std::auto_ptr<TStringList>L(new TStringList);
    for (int i = StringGrid1->FixedRows; i < StringGrid1->RowCount; i++)
        L->AddObject(StringGrid1->Rows[i]->CommaText,
            new Sorter(StringGrid1->Cells[4][i], StringGrid1->Cells[1][i])); // 1 - номер колонки с адресом, 4 - с характером заявки
 
    L->CustomSort(MyCompare);
 
    for (int i = 0; i < L->Count; i++)
    {
        Sorter *p = static_cast<Sorter*>(L->Objects[i]);
        StringGrid1->Rows[i + StringGrid1->FixedRows]->CommaText = L->Strings[i];
        StringGrid1->Cells[0][i + StringGrid1->FixedRows] = IntToStr(i + 1);
        delete p;
    }
}