Добавление, изменение, удаление записей из БД через таблицу, которая строится с ADOQuery

// Form 2
procedure TForm2.FormCreate(Sender: TObject);
var tyear: string;
begin
  tyear:=Variant(YearOf(now));
  with  ADOTable1 do
  begin
  DisableControls;
  ComboBox1.Items.BeginUpdate;
  First;
   while not Eof do
      begin
       ComboBox1.Items.Add(FieldByName('Year').AsString);
       Next;
      end;
  ComboBox1.Items.EndUpdate;
  EnableControls;
  end;
  ComboBox1.ItemIndex:=ComboBox1.Items.IndexOf(tyear);
 
  with ADOQuery1 do
  begin
  Close;
  SQL.Text:='SELECT Materials.Name, Measures.ShortName, [Material_Requirement_Plan].Quantity '+
              'FROM Years INNER JOIN (Measures INNER JOIN (Materials INNER JOIN Material_Requirement_Plan ON ' +      'Materials.Code=[Material_Requirement_Plan].Material_Code) ON Measures.Code='+
              '[Material_Requirement_Plan].MeasCode) ON Years.Code=[Material_Requirement_Plan].YEAR '+
            'WHERE Years.YEAR=:P1 ORDER BY Materials.Name;';
  Parameters[0].Value:=Combobox1.Items[Combobox1.ItemIndex];
  Open;
  end;
end;
 
procedure TForm2.N4Click(Sender: TObject);
var tyear: string;
begin
  tyear:=Variant(YearOf(now));
  Form3.Show;
  Form2.Enabled:=False;
  Form3.DBComboBox1.Enabled:=False;
  with  Form2.ADOTable1 do
  begin
  DisableControls;
  Form3.DBComboBox1.Items.BeginUpdate;
  First;
   while not Eof do
      begin
       Form3.DBComboBox1.Items.Add(FieldByName('Year').AsString);
       Next;
      end;
  Form3.DBComboBox1.Items.EndUpdate;
  EnableControls;
  end;
  Form3.DBComboBox1.ItemIndex:=Form3.DBComboBox1.Items.IndexOf(tyear);
 
  with  Form2.ADOTable2 do
  begin
  DisableControls;
  Form3.DBComboBox2.Items.BeginUpdate;
  First;
   while not Eof do
      begin
       Form3.DBComboBox2.Items.Add(FieldByName('Name').AsString);
       Next;
      end;
  Form3.DBComboBox2.Items.EndUpdate;
  EnableControls;
  end;
 
  with  Form2.ADOTable3 do
  begin
  DisableControls;
  Form3.DBComboBox3.Items.BeginUpdate;
  First;
   while not Eof do
      begin
       Form3.DBComboBox3.Items.Add(FieldByName('ShortName').AsString);
       Next;
      end;
  Form3.DBComboBox3.Items.EndUpdate;
  EnableControls;
  end;
end;