Собрать StringGrid из двух DBGrid-ов

DBGrid1->DataSource->DataSet->First(); // Устанавливаем фокус в начало таблицы
int i(0), j (0);
UnicodeString id;  //переменная айди, в которой буду перебирать значения из первого дбгрида, и который буду искать во втором
TLocateOptions Opts; //опция поиска
Opts.Clear();
Opts << loPartialKey;
 
 while(!Form1->ADOQuery1->Eof) 
 {
   for (i = 0; i < DBGrid1->Columns->Count - 1;i++) {
 
   //если колонка с айди (#3)
   if (i==2) {
     id= Form1->ADOQuery1->Fields->Fields[i]->AsString; //то записать текущее значение в переменную
     if (DBGrid2->DataSource->DataSet->Locate("id_item", id,Opts ))  //если нашел во втором дбгриде то
      StringGrid1->Cells[4][j] = DBGrid2->DataSource->DataSet->FieldValues["name"]; //записать соответствующее значение поле name в результирующий стринггрид (пятая колонка)
            }
     else  //значения остальных колонок записать как есть
      StringGrid1->Cells[i][j] = Form1->ADOQuery1->Fields->Fields[i]->AsString;
                                                    }
   Form1->ADOQuery1->Next();
   j++;
   
 }