Прибавление к текущей записи

Form3->tbl1->Filtered=false;
Form3->tbl1->Filter="id_mat='"+DBLookupComboBox1->KeyValue+"'";
Form3->tbl1->Filtered=true;

if (Form3->tbl1->RecordCount>0) { //если записей больше нуля
  Form3->tbl1->Edit(); //включаем редактирование
  Form3->tbl1kolvo->Value=Form3->tbl1kolvo->Value + StrToInt(dbedtkolvo2->Text); //прибавляем количество
  Form3->ADOTable7->Cancel(); //отключаем Insert в первом тэйбле
  Form3->ADOTable7->Active=false; //обновляем таблицу
  Form3->ADOTable7->Active=true;
}
else Form3->ADOTable7->Post(); //Если нету записи то добавляем

  if (!Form3->ADOTable7->Locate("id_mat",edt1->Text, TLocateOptions())) {
  Form3->ADOTable7->Insert();
  Form3->ADOTable7id_mat->AsString=edt1->Text;
  Form3->ADOTable7kolvo->Value=StrToInt(edt3->Text);
  Form3->ADOTable7id_ost->Value=Form3->ADOTable3id_ost->Value;
  Form3->ADOTable7->Post(); }

  else {
  Form3->ADOTable7->Edit();
  Form3->ADOTable7kolvo->Value+=StrToInt(edt3->Text);
  Form3->ADOTable7->Post(); }

ADOQuery1->Close();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Text = "INSERT INTO table ([End]) VALUES(:End)";
ADOQuery1->Parameters->Items[0]->Value=Edit1->Text;
ADOQuery1->ExecSQL();

DataSource1->DataSource1->DataSet->Insert();
DataSource1->DataSet->FieldByName("End")->Value = Edit1->Text;
DataSource1->DataSource1->DataSet->Post();

Edit1->Text = DBLookupComboBox1->Text;

Edit1->Text = DBLookupComboBox1->KeyValue;

ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Text = "INSERT INTO table ([End]) VALUES(:End)";
ADOQuery1->Parameters->Items[0]->Value=Edit1->Text;

ADOQuery1->SQL->Text = "INSERT INTO table ([End]) VALUES("+ Edit1->Text + ")";

ADOQuery1->SQL->Text = "INSERT INTO table ([End]) VALUES("+ Edit1->Text + ")";