[Nostradamus051]

Добрый день!

Есть код:

Код:

procedure TForm1.btn15Click(Sender: TObject);
begin
if (cbb2.ItemIndex=(-1)) or (edt2.text='') then MessageDlg('Çàïîëíåíû íå âñå ïîëÿ!',mtError, [mbOK], 0)
else begin
  if edt1.text<>'' then begin
    dm.ADOtab1.Append;
    dm.ADOtab1['name_kat']:=edt1.Text;
    dm.ADOtab1.Post;
    DM.ADOtab1.Refresh;
    end;
  if not DM.ADOtab3.Locate('name_tip',edt6.Text,[]) then begin
    DM.ADOtab3.Append;
    dm.ADOtab3['name_tip']:=edt6.Text;
    dm.ADOtab3.Post;
    dm.ADOtab3.Refresh;
    end;
  DM.ADOtab2.Append;
  if cbb2.ItemIndex>(-1) then DM.ADOtab2['name_kat']:=cbb2.text
  else dm.ADOtab2['name_kat']:=edt1.Text;
  DM.ADOtab2['name_kn']:=edt2.text;
  DM.ADOtab2['avtor']:=edt3.text;
  DM.ADOtab2['god']:=edt4.text;
  dm.ADOtab2['name_file']:=edt5.text;
  dm.ADOtab2['tip_file']:=edt6.text;
  dm.ADOtab2['data']:=date();
  dm.ADOtab2.Post;
  end;
end;

При добавлении новой записи (если создавать новую запись в adotab1['name_kat']) вылетает ошибка (во вложении).
И это странно, т.к. при добавлении новой записи в adotab3['name_tip'] все нормально работает и сохраняет.
В tab1 'name_kat' - ключ, в tab3 'name_tip' - ключ. Связаны с tab2 как один ко многим.
Ошибка вылетает на строке dm.ADOtab2.Post;
Для полной ясности во вложении проект и бд.
Пароль "2014".