Ошибка при добавлении данных

procedure TFormAdd.btn1Click(Sender: TObject);
var
  id_vid_peredachi: Integer;
  id_radioset, id_meropriyatiya: Integer;
begin
  id_vid_peredachi:= StrToInt(cbb1.KeyValue);
  id_radioset:= StrToInt(cbbid_radioseti.KeyValue);
  id_meropriyatiya:= StrToInt(cbbid_meropriyatiya.KeyValue);
 
 {with dtmdl1.tblMain do
 begin }
  dtmdl1.tblMain.Insert;
  dtmdl1.tblMain.Fields[1].Value:= Date;
  dtmdl1.tblMain.Fields[2].Value:= edt1.Text ;
  dtmdl1.tblMain.Fields[3].Value:= id_vid_peredachi;
  dtmdl1.tblMain.Fields[4].Value:= edt2.Text;
  dtmdl1.tblMain.Fields[5].Value:= edt3.Text + edt4.Text + lbl13.Caption + edt5.Text + edt6.Text + cbb6.Text;
  dtmdl1.tblMain.Fields[6].Value:= edt8.Text;
  dtmdl1.tblMain.Fields[7].Value:= id_radioset;
  dtmdl1.tblMain.Fields[8].Value:= id_meropriyatiya;
  dtmdl1.tblMain.Fields[10].Value:= edt7.Text;
  dtmdl1.tblMain.Post;
 {end;}
 dtmdl1.qryMain.Active:= False;
 dtmdl1.qryMain.Active:= True;
 
 edt1.Text:= '';
 edt2.Text:= '';
 edt3.Text:= '';
 edt4.Text:= '';
 edt5.Text:= '';
 edt6.Text:= '';
 
  MainForm.dbgrdh1.Columns[3].Visible:= False;
  MainForm.dbgrdh1.Columns[4].Visible:= False;
  MainForm.dbgrdh1.Columns[7].Visible:= False;
  MainForm.dbgrdh1.Columns[8].Visible:= False;
  MainForm.dbgrdh1.Columns[9].Visible:= False;
  MainForm.dbgrdh1.Columns[10].Visible:= False;
  MainForm.dbgrdh1.Columns[0].Width:= 80;
  MainForm.dbgrdh1.Columns[1].Width:= 80;
  MainForm.dbgrdh1.Columns[2].Width:= 200;
  MainForm.dbgrdh1.Columns[5].Width:= 200;
  MainForm.dbgrdh1.Columns[6].Width:= 165;
 
  Close;
 
  dtmdl2.qryPozivnoi.Active:= False;
  dtmdl2.qryPozivnoi.Active:= True;
end;