Добавление данных в три таблицы

procedure TFormJournal.ButAddPaсClick(Sender: TObject);
begin
    FormPatient.Tag:=1;
    FormPatient.ShowModal;
    if FormPatient.Tag=1 then
    begin
        DM.ADOTablePacient.Append;
        .......
        .......
        DM.ADOTablePacient.Active;
        DM.ADOTablePacient.Post;
    end;
end;

procedure TFormJournal.ButAddAnkClick(Sender: TObject);
begin
    DM.ADOTableAnketa.Append;
    FormAnketa.ShowModal;
    .....
    .....
    DM.ADOTableAnketa.Active;
    DM.ADOTableAnketa.Post;
end

procedure TFormAnketa.BtnAddFotoClick(Sender: TObject);
begin
    if OpenPicDialog.Execute then
    begin
        DM.ADOTableFoto.Append;
        ......
        DM.ADOTableFoto.Active;
        DM.ADOTableFoto.Post;
    end;
end;

procedure TFormJrn.Button2Click(Sender: TObject);
begin
    FormAnketa.Tag:=1;
    ADOTableAnketa.Append;
    ADOTableAnketaKod_Pc.Value:=ADOTablePacientKod_Pc.Value;
    ADOTableAnketa.Active;
    ADOTableAnketa.Post;
    FormAnketa.ShowModal;
    if FormAnketa.Tag=1 then
    begin
        ADOTableAnketaData.Value:=FormAnketa.DateTimePicker1.Date;
//        ADOTablePacient.Post; 
//        выйти из режима редактирования?
    end;
    if FormAnketa.Tag=0 then ADOTableAnketa.Cancel;
end;