Сортировка по колонке в stringGrid

typedef struct { 
  int ARow; //Номер строки 
  AnsiString S; //содержимое ячейки сортируемой колонки 
}TMyData; 
//Вспомогательная функция сортировки 
static int __fastcall CompareUp(void * Item1, void * Item2) 
{ 
  return ((TMyData *)Item1)->S.AnsiCompare(((TMyData *)Item2)->S); 
} 
//Вспомогательная функция сортировки 
static int __fastcall CompareDown(void * Item1, void * Item2) 
{ 
  return ((TMyData *)Item2)->S.AnsiCompare(((TMyData *)Item1)->S); 
} 
//Сортировка строк в SG по содержимому колонки ACol 
//DirectSort==1 - по возрастающей, ==-1 - по убывающей 
//          ==0 -без сортировки 
static void __fastcall Sort(TStringGrid *SG,int ACol,int DirectSort) 
{ 
  int i,j,ARow; 
  if(!DirectSort)return; // без сортировки 
  if(!SG->FixedRows)return; //Нет заголовка колонки 
  if(SG->RowCount <=SG->FixedRows)return; //Нечего сортировать 
  TList *SortList=new TList; //Список для сортировки 
  TList *TempList=new TList; //Список для установки строк на новое место 
  //Заполним список содержимым колонки ACol 
  for(ARow=SG->FixedRows; ARow < SG->RowCount; ARow++) 
  { 
    TMyData *md=new TMyData; 
    md->ARow=ARow; 
    md->S=SG->Cells[ACol][ARow]; 
    SortList->Add(md); 
    //Заполним TempList 
    TempList->Add((void *)ARow); //Запомним старую расстановку строк 
  } 
  if(DirectSort==1)SortList->Sort(CompareUp); //Отсортируем по возрастающей 
  else SortList->Sort(CompareDown); //Отсортируем по убывающей 
  for(i=0; i < SortList->Count; i++) 
  { 
    TMyData *md=(TMyData *)(SortList->Items[i]); 
    //Возьмём номер строки в начальной расстановке 
    ARow=md->ARow; 
    //Найдём в каком месте сейчас находится бывшая строка ARow 
    for(j=0; j < TempList->Count; j++) 
    { 
      if(ARow==(int)TempList->Items[j])break; 
    } 
    //Сейчас строка находится на месте j+FixedRows 
    //Надо её переставить на место i+FixedRows 
//.... Это вариант для стандартного StringGrid'а ..... 
    AnsiString Sold=SG->Rows[j+SG->FixedRows]->Text; //Прежнее положение строки 
    AnsiString Snew=SG->Rows[i+SG->FixedRows]->Text; //Новое положение строки 
    SG->Rows[j+SG->FixedRows]->Text=Snew; 
    SG->Rows[i+SG->FixedRows]->Text=Sold; 
    //Делаем параллельную перестановку в TempList 
    int jold=(int)(TempList->Items[j]); 
    int inew=(int)(TempList->Items[i]); 
    TempList->Items[j]=(void *)inew; 
    TempList->Items[i]=(void *)jold; 
//.... 
//.... Это вариант для компонента наследованного от TStrinGrid'а ... 
//    MoveRow(j+FixedRows,i+FixedRows); //Переставляем строки 
//    TempList->Move(j,i); //Делаем параллельную перестановку 
//.... 
  } 
  //Удалим списки 
  delete TempList; 
  for(i=0; i < SortList->Count; i++) 
  { 
    delete (TMyData *)(SortList->Items[i]); 
  } 
  delete SortList; 
} 
//----------------------------------------------- 
void __fastcall TForm1::StringGrid1MouseUp(TObject *Sender, 
      TMouseButton Button, TShiftState Shift, int X, int Y) 
{ 
     if(Button==mbRight)//Правая кнопка мыши 
     { 
       int ACol,ARow; 
       TStringGrid *SG=(TStringGrid *)Sender; 
       SG->MouseToCell(X,Y,ACol,ARow); 
       int DirectSort=0; 
       if( (ARow >=0 && ARow <SG->FixedRows)&& ACol>=0) 
       { 
        if(Shift.Contains(ssCtrl))DirectSort=1; //По возрастающей 
        if(Shift.Contains(ssShift))DirectSort=-1; //По убывающей 
        Sort(SG,ACol,DirectSort); 
       } 
     } 
}

TStringList *SL = new TStringList;
AnsiString S;
 
for (int i=0; i < StringGrid1->RowCount; i++)
    {
    S="";
    for (int j=0; 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;