StringGrid сортировка

TStringList *sl=new TStringList;
  sl->StringGrid1->Cells[1][i];
  sl->CustomSort(MySortCompare);
  ShowMessage(sl->Text);
  delete sl;

 AnsiString str1=List->Strings[Index1];
  str1 = str1.SubString(str1.Pos(" ") + 1, str1.LastDelimiter(" ") - 1 - str1.Pos(" "));
  AnsiString str2=List->Strings[Index2];
  str2 = str2.SubString(str2.Pos(" ") + 1, str2.LastDelimiter(" ") - 1 - str2.Pos(" "));
  return strcmp(str1.c_str(), str2.c_str());

int __fastcall MySortCompare(TStringList* List, int Index1, int Index2)
{
  AnsiString str1=List->Strings[Index1];
  str1 = str1.SubString(str1.Pos(" ") + 1, str1.LastDelimiter(" ") - 1 - str1.Pos(" "));
  AnsiString str2=List->Strings[Index2];
  str2 = str2.SubString(str2.Pos(" ") + 1, str2.LastDelimiter(" ") - 1 - str2.Pos(" "));
  return strcmp(str1.c_str(), str2.c_str());
}

void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
 
 
         TStringList *sl=new TStringList;
         for (int i = 0; i < SG->RowCount-1; i++)
          sl->Add(SG->Rows[i]->DelimitedText);
 
 
        for (int i = 0; i < SG->RowCount-1; i++) {
          for (int j = i; i < SG->RowCount; i++)
        sl->CustomSort(MySortCompare);
        }
 
}