[Volhv]

Вызваю форму для ввода данных в форме FormAnketa;

Код:

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;
//        Выход из редактрования ADOTable
    end;
    if FormAnketa.Tag=0 then ADOTableAnketa.Cancel;
end;

На форме ввожу данные имя фото, дату, ну и ComboBox-ы отмечаю.

Код:

procedure TFormAnketa.Button1Click(Sender: TObject);
begin
    if OpenPicDialog.Execute then
    begin
        ADOTableFoto.Append;
        ADOTableFotoKod_An.Value:=FormJrn.ADOTableAnketaKod_An.Value;
        ADOTableFotoFUllName.Value:=OpenPicDialog.FileName;

        ADOTableFoto.Active;
        ADOTableFoto.Post;
    end;
end;

Таблица Anketa остается в режиме редактирования. Как выйти из режима редактирвания?