Выборка данных из StringGrid

TStringList * T = new TStringList;
      T->Clear();
     //Выборкаданныз из указанного дипазона дат
     //запись выбраных строк в список Т
 
      for(int i=1;i<TabVZak->RowCount;i++)
       {
         if(StrToDate(TabVZak->Cells[4][i])>DateTimePicker1->Date)
          if(StrToDate(TabVZak->Cells[4][i])<DateTimePicker2->Date)
             T->Add(TabVZak->Rows[i]->DelimitedText);
       }
      //заполнение таблицы данными из списка Т
      TabVZak->RowCount=T->Count+1;
      for(int i=1;i<TabVZak->RowCount;i++)
         TabVZak->Rows[i]->DelimitedText=T->Strings[i-1];
 
     TStringList * K = new TStringList;
      K->Clear();
      //выбор строк с одинаковым названием товара
      for(int i=0;i<T->Count;i++)
      {
         for(int j=i+1;j<T->Count;j++)
            if(TabVZak->Cells[1][i+1]==TabVZak->Cells[1][j+1]) //сравнение названий
            {
               //суммирование кол-ва товара и запись в первую строку с таким названием
               TabVZak->Cells[2][i+1]=StrToInt(TabVZak->Cells[2][i+1]) + StrToInt(TabVZak->Cells[2][j+1]);
               //суммирование суммы цены товара и запись в первую строку с таким названием
               TabVZak->Cells[3][i+1]=FloatToStrF(StrToFloat(TabVZak->Cells[3][i+1]) + StrToFloat(TabVZak->Cells[3][j+1]),ffFixed,8,2);
               //Замена первой строки на новую с изменнной суммой и кол-вом
               T->Strings[i]=TabVZak->Rows[i+1]->DelimitedText;
               //удаление повторяющейся строки
               T->Delete(j);
 
            }
 
       K->Add(T->Strings[i]);
       }
 
      TabVZak->RowCount=K->Count+1;
//вывод в талицу полученных результатов
      for(int i=1;i<TabVZak->RowCount;i++)
         TabVZak->Rows[i]->DelimitedText=K->Strings[i-1];
 
 
     //сортировка пузырьком по уменьшению кол-ва
     AnsiString H;
      for(int i=1;i<TabVZak->RowCount;i++)
          for(int j=1;j<TabVZak->RowCount;j++)
             if(TabVZak->Cells[2][i]>TabVZak->Cells[2][j])
                 {
                     H=TabVZak->Rows[i]->DelimitedText;
                     TabVZak->Rows[i]=TabVZak->Rows[j];
                     TabVZak->Rows[j]->DelimitedText=H;
                 }
 
         T->Clear();