Как вытащить в переменную

if(bookmarks.size()==0)return; //Если не выделено ни одной записи

  TDataSet* gtkn = Grid_Volume->DataSource->DataSet;
  gtkn->DisableControls();

  // Алгоритм копирования
  AnsiString SectorTable = "Loading_Card_Sector"; //Откуда копировать
  AnsiString CardTable = "Loading_Card_21030"; //Куда копировать
  AnsiString SectorBreak = "Loading_Break_Sector"; //Откуда копировать
  AnsiString CardBreak = "Loading_Break_21030"; //Куда копировать

  AnsiString str;

  TADOQuery *qry = ADOQuery1; // нужно поместить компонент на форму и
                              // настроить
  int crno = gtkn->RecNo;
  try
  {  
    for(SET::iterator it=bookmarks.begin();it!=bookmarks.end();it++)
    {
      gtkn->RecNo = *it;
      int oldCardId = gtkn->FieldByName("CardID")->AsInteger;
      str = Format("INSERT INTO %s (KodSyst, GostID, NameRD) \n\
        Select KodSyst, GostID, NameRD \n\
        From %s Where CardID=%d",
        ARRAYOFCONST((CardTable, SectorTable, oldCardId)));

      qry->SQL->Text = str;
      qry->ExecSQL();  // Добавляем одну родительскую запись

      qry->SQL->Text = "SELECT SCOPE_IDENTITY()";
      qry->Open();
      int newCardId = qry->Fields->Fields[0]->AsInteger;

      str = Format("INSERT INTO %s (CardID, Sp20i19) \n\
        SELECT %d, Sp20i19 \n\
        FROM %s \n\
        WHERE CardID = %d",
        ARRAYOFCONST((CardBreak, newCardId, SectorBreak, oldCardId)));
      qry->SQL->Text = str;
      qry->ExecSQL(); // добавление дочерных записей
    }
  }
  __finally
  {
    gtkn->RecNo = crno;
    gtkn->EnableControls();
  }