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

void __fastcall TMainForm::N7Click(TObject *Sender)
{
ADOQuery2->Close();
ADOQuery2->SQL->Clear();
ADOQuery2->SQL->Add("SELECT *FROM Recycled");
ADOQuery2->Open();
TLocateOptions Options;
Options.Clear();
Options << loPartialKey;
if(ADOQuery2->Locate("Invent_Number",ADOQuery1->FieldByName("Invent_Number")->AsInteger,Options))
{ AnsiString cw = "Òàêàÿ ñòðîêà óæå åñòü â îò÷¸òå!!! \n\n" + IntToStr(ADOQuery2->FieldByName("Invent_Number")->AsInteger)+" - "
  +ADOQuery2->FieldByName("Number_in_Lan")->AsString+" - "
  +ADOQuery2->FieldByName("Department")->AsString+" - "
  +ADOQuery2->FieldByName("Processor")->AsString+" - "
  +ADOQuery2->FieldByName("Memory")->AsString+" - "
  +ADOQuery2->FieldByName("HDD")->AsString+" - "
  +ADOQuery2->FieldByName("Room")->AsString + "\n\n"
  + "Âûáåðèòå äðóãóþ ñòðîêó";
  Application->MessageBox(cw.c_str(),"Âíèìàíèå",MB_ICONWARNING);
}
else
{
  ADOQuery2->Close();
  ADOQuery2->SQL->Clear();
  ADOQuery2->SQL->Add("INSERT INTO Recycled SELECT *FROM Glavnaya WHERE Invent_Number ="+ADOQuery1->FieldByName("Invent_Number")->AsString);
  ADOQuery2->ExecSQL();
  N16->Enabled = true;