procedure TEditGridRecordForm.rowAddress111EditPropertiesButtonClick
  (Sender: TObject; AButtonIndex: Integer);
begin
  with TEditAddressForm.Create(Self) do
    try
      if ShowModal = mrOK then
      begin
        rowAddress.Properties.Value := Address;
      end;
    finally
      Free;
    end;
end;

procedure T***EditorForm.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);

begin
  inherited;

  if ModalResult = mrOk then
  begin
    if not btnOk.Focused then
      // Перемещаем фокус, чтобы знать зафиксировать
      SetFocusIfPossible(btnOk); // Фиксация изменений

    if (dtMain.State = dsInsert)
      or ((dtMain.State = dsEdit)
      and (dtMain.Modified or какие-то_еще_условия)) then
      PostData()
    else
      dtMain.Cancel
  end
  else
    dtMain.Cancel;

end;

procedure SetFocusIfPossible(aControl: TWinControl);
var
  fCF: TCustomForm;
begin
  fCF := GetParentForm(aControl);
  if Assigned(fCF) and fCF.Visible and aControl.CanFocus then
    aControl.SetFocus;
end;