Проблема с сортировкой stringGrid

void __fastcall TForm7::ComboBox1Change(TObject *Sender)
{
//###
{
  int p = ComboBox1->ItemIndex; // выбор номера колонки
  // StringGrid1 ->Row = 1; // перемещение курсора в вниз
  if (p>0 )StringGrid1 ->Col = p;
  String buff;
  for (int i = 1; i < StringGrid1->RowCount; i++)
    for (int j = i; j < StringGrid1->RowCount; j++) {
      if (StringGrid1->Cells[p][i]>StringGrid1->Cells[p][j]) // [здесь номер искомой колонки][j]
      {
        for(int k=0;k<5;k++)// к - количество колонок (5)
      {
      buff=StringGrid1->Cells[k][i];
      StringGrid1->Cells[k][i]= StringGrid1->Cells[k][j];
      StringGrid1->Cells[k][j]=buff;
    }
 }
}
//////////////////////////////////////////////////////////////
//int s = StringGrid1->Row; // определяем на какой строке курсор
//AnsiString nomer = StringGrid1->Cells[0][s] ;  // читаем порядковый номер
// Delete ->Caption = ("Изтрий запис № - ") + nomer; // пишем на кнопке номер записи
 /////////////////////////////////////////////////////////////
}
}
//---------------------------------------------------------------------------