[lmikle]

А так:

Код:

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

PS. ShowModal - это функция. Возвращает ModalResult (можно назначить на кнопку). Это что-бы с Tag не мучаться:
В форме TFormAnketa на кнопку OK ставишь mrOK, на кнопку Отмена ставишь mrCancel. тогда в коде можно писать так:

Код:

procedure TFormJrn.Button2Click(Sender: TObject);
begin
    ADOTableAnketa.Append;
    ADOTableAnketaKod_Pc.Value:=ADOTablePacientKod_Pc.Value;
    ADOTableAnketa.Active; // Вот это для чего не понял...
    If FormAnketa.ShowModal = mrOk
       Then
         begin
           ADOTableAnketaData.Value:=FormAnketa.DateTimePicker1.Date;
           ADOTableAnketa.Post;
          end
    Else ADOTableAnketa.Cancel;
end;