Выдаёт ошибку при удалении записей из связанных таблиц. Что неправильно?

procedure TForm13.RadioButton5Click(Sender: TObject);
var i,n:integer;
begin
 if DataModule1.DataSource3.State=dsBrowse then
  DataModule1.ADOTable3.Edit;
 Form23.ShowModal;
begin
   DataModule1.ADOTable1.DisableControls;
    if DataModule1.DataSource3.State=dsBrowse then
    DataModule1.ADOTable3.Edit;
        if DataModule1.DataSource1.State=dsBrowse then
    DataModule1.ADOTable1.Edit;
      DataModule1.ADOTable1.Last;
  DataModule1.ADOTable1.First;
  n:=DataModule1.ADOTable1.RecordCount;
    {Locate(DataModule1.ADOTable3.Fields[0].AsString,Form1.DBComboBox1.Text,[]);}
  For i:=1 to n do begin
  if (DataModule1.ADOTable1.Fields[1].AsString=Form23.DBComboBox1.Text)
    and (not Eof)then DataModule1.ADOTable1.Delete;
    end;
  DataModule1.ADOTable1.EnableControls;
end;
DataModule1.ADOTable3.Delete;
DataModule1.ADOTable3.Post;
end;

procedure TForm14.Button1Click(Sender: TObject);
begin
DataModule1.ADOTable1.Post;
if DataModule1.DataSource1.State=dsBrowse then
DataModule1.ADOTable1.Edit;
end;
 
procedure TForm14.Button2Click(Sender: TObject);
begin
DataModule1.ADOTable1.Cancel;
if DataModule1.DataSource1.State=dsBrowse then
DataModule1.ADOTable1.Edit;
end;

s:=ADODataSet.FieldValues['id']; //источник записей, ключевое его поле
ADOQuery.SQL.Clear;
ADOQuery.SQL.Add('delete * from tablica where id_='+s);
ADOQuery.ExecSQL;