Ввод в связанную БД (для Катерины)

if (string.IsNullOrEmpty(ComboBox1.text)) or (string.IsNullOrEmpty(ComboBox2.text))  or (string.IsNullOrEmpty(ComboBox3.text))  or
   (string.IsNullOrEmpty(Edit1.text))  or (string.IsNullOrEmpty(Edit2.text)) then  begin
    ShowMessage('Не все поля имеют данные!');
    Exit;
   end;
DM.ADOQuery_All.append;
DM.ADOQuery_ALL.FieldByName('ИД_Физзического_лица').Asinteger:=DM.ADOQuery_Физические_лица.FieldByName('ИД_Физического_лица').Asinteger;
DM.ADOQuery_ALL.FieldByName('ИД_доллжности').Asinteger:=DM.ADOQuery_Должности_организации.FieldByName('ИД_должности').Asinteger;
DM.ADOQuery_ALL.FieldByName('ИД_поддразделения').Asinteger:=DM.ADOQuery_Подразделения.FieldByName('ИД_подразделения').Asinteger;
DM.ADOQuery_ALL.FieldByName('Номер_документа_кадрового_перемещения').AsString:=Edit1.Text;
DM.ADOQuery_ALL.FieldByName('Дата_документа_кадрового_перемещения').AsString:=Edit2.Text;
DM.ADOQuery_ALL.Post;
//вывод обновленного запроса
DM.ADOQuery_ALL.SQL.Clear;
DM.ADOQuery_ALL.SQL.Add('SELECT * FROM Физические_лица, Должности_организации, Подразделения, Сотрудники_организации where'
                       +'(Физические_лица.ИД_Физического_лица = Сотрудники_организации.ИД_Физзического_лица) and'
                       +'(Должности_организации.ИД_должности = Сотрудники_организации.ИД_доллжности)and'
                       +'(Подразделения.ИД_подразделения = Сотрудники_организации.ИД_поддразделения)');
DM.ADOQuery_ALL.Active:=True;