Перенос с одной таблицы в другую

 ADOQuery1->DisableControls();
 TStringList *djvu = new TStringList();
 
   int curItem = ADOQuery1->RecNo;
   if(DBGrid1->SelectedRows->Count > 0)
  {
       djvu->Clear();
       ADOQuery1->First();
 
          while(!ADOQuery1->Eof)
          {
             if(DBGrid1->SelectedRows->CurrentRowSelected)
                {
                  djvu->Add(IntToStr(ADOQuery1->FieldByName("Invent_Number")->AsInteger));
                }
                  ADOQuery1->Next();
          }
  }
 AnsiString acd = StringReplace(djvu->Text,"\r\n"," ",TReplaceFlags()<<rfReplaceAll);
 acd = StringReplace(acd.Trim()," ",",",TReplaceFlags()<<rfReplaceAll);
 DBGrid1->SelectedRows->Clear();
ADOQuery1->Close();
             ADOQuery1->SQL->Clear();
             ADOQuery1->SQL->Add("INSERT INTO Vubrannaya (Invent_Number, Number_in_Lan, Department, Processor, Memory, HDD, Room, Wind, MS_Office_and_Open_Office, Spec_Prog, No_Licenz, AutoCad)");
             ADOQuery1->SQL->Add("SELECT Invent_Number, Number_in_Lan, Department, Processor, Memory, HDD, Room, Wind, MS_Office_and_Open_Office, Spec_Prog, No_Licenz, AutoCad FROM Glavnaya");
             ADOQuery1->SQL->Add("WHERE Invent_Number IN (Select Invent_Number from Glavnaya WHERE Invent_Number IN ("+acd+") AND Invent_Number NOT IN (Select Invent_Number from Vubrannaya))");
             ADOQuery1->ExecSQL();
ADOQuery1->RecNo = curItem;
  delete djvu;
  djvu = NULL;
  ADOQuery1->EnableControls();

acd = acd + ADOQuery1->FieldByName("Invent_Number")->AsString + ", "