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

void __fastcall TForm3::Button1Click(TObject *Sender)
{
if(Form4->DBGrid2->Columns->Items[0]->Field->AsString==Form3->DBGrid1->Columns->Items[0]->Field->AsString)
        ShowMessage("Учитель уже в архиве");
 else
 {
 Form4->Table2->Insert();
 Form4->DBGrid2->Columns->Items[0]->Field->AsString=Form3->DBGrid1->Columns->Items[0]->Field->AsString;
 Form4->DBGrid2->Columns->Items[1]->Field->AsString=Form3->DBGrid1->Columns->Items[1]->Field->AsString;
}
}

if(Form4->Table1->Fields->Fields[0]->AsString==Form3->Table2->Fields->Fields[0]->AsString)
        ShowMessage("Учитель уже в архиве");
 else
 {
 Form4->Table1->Insert();
 Form4->Table1->Fields->Fields[0]->AsString=Form3->Table2->Fields->Fields[0]->AsString;
 Form4->Table1->Fields->Fields[1]->AsString=Form3->Table2->Fields->Fields[1]->AsString;
 Form4->Table1->Post();  //а на всякий случай :) 
 
}

    AnsiString qr = Form3->Table2->Fields->Fields[0]->AsString;
 
  //делаем так - нужен еще один компонент Query
   Query1->Active=false;
   Query1->SQL->Text = "Select * From db Where fieldname Like '%"+qr+"%'"; //db - имя базы данных, fieldname - имя поля, где идет поиск
   Query1->Open();
 
     
  if(Query1->RecordCount)  //если такая запись уже есть, то 
   ShowMessage("Учитель уже в архиве");
 
 else
 {
AnsiString qr1 = Form3->Table2->Fields->Fields[0]->AsString;
AnsiString qr2 = Form3->Table2->Fields->Fields[2]->AsString;
 
   Query1->Active=false;
   Query1->SQL->Text = "Insert Into db (fieldname1, fieldname2) Values ("+qr1+", "+qr2+")"; //db - имя базы данных, fieldname - имя поля, где идет поиск
   Query1->Open();
}