Удаление текущей строки в Access

[Armageddets]

Всем доброго времени суток, уважаемы эксперты. Есть БД в аццесс, работаю с ней чере АДО. В БД 3 связанных таблицы. Как добавить данные сразу в три таблицы я разобрался. А вот удаление хотя бы из одной не срабатывает. Пробовал кучу вариантов из интернета - ни один не сработал. Я подозреваю что проблема не в самом методе, а может в моих БД даже. В общем прошу помощи разобраться как мне удалять текущую строку для моего варианта БД. Заранее спасибо всем, кто откликнется.

Пробовал такие варианты:

DbGrid1.DataSource:=DataSource4;

  If ADOQuery1.RecordCount<>0 then
  begin
    if Application.MessageBox(PChar('Вы действительно хотите удалить?', MB_OKCANCEL)=id_OK then
       ADOQuery1.Delete;
  end;







  DbGrid1.DataSource:=DataSource1;
  DataSource1.DataSet.Edit;
  DataSource1.DataSet.Delete;
  DataSource1.DataSet.Post;






  DbGrid1.DataSource:=DataSource1;
  ADOTable1.Edit;
  ADOTable1.Delete;
  ADOTable1.Post;

И я прилагаю сам проект тоже собственно (пароль на архив - 1):
Проект

[Armageddets]

Все разобрался) Может кому пригодится. Просто не нужно использовать метод Post после удаления. ОН срабатывает только после добавления строк и редактирования.