Static , dynamic_cast, - ( Sender ) не работает сортировка корректно со вторым стринггридом!

void __fastcall TForm_List_Rajon::TS(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
   //static
   TStringGrid *ts = dynamic_cast <TStringGrid *> ( Sender ); // (TStringGrid*)Sender;
   TGridCoord a;
  a=ts->MouseCoord(X,Y);
    //ts->Name = ((TStringGrid *)Sender)->Name;
    //ts->ColCount = ((TStringGrid *)Sender)->RowCount;
    //ts->RowCount = ((TStringGrid *)Sender)->ColCount;
 
  if (a.Y==0)
  {
     int p = a.X;
     int minimal = 0;
 
  for (int i = 1; i < ts->RowCount-1; i++)// начинаю с первой строки
   {      minimal = i;// номер строки для перемещения
   for (int j = i; j < ts->RowCount; j++)// проверяю строку
    {
     if (ts->Cells[p][minimal] > ts->Cells[p][j]
      //&& sort_napravlenie == false
        )//[здесь номер искомой колонки][j]
     {
           minimal = j;// находим минимальный размер строки
 
    }// конец поиска строки
// перемещение минимальной строки на очередной номер
    if (minimal != 0)
    {
   ts->Rows [ts->RowCount +1] = ts->Rows[i];
   ts->Rows[i] = ts->Rows[minimal];
   ts->Rows [minimal] = ts->Rows [StringGrid_List->RowCount +1];
    }
    }
 //---------- очистка буффера и удаление "временной" строки ---------------------
 
             ts->Rows[ts->RowCount + 1]->Clear();// очистка последней строки
 
  }
 
}