Исходный текст

//---------------------------------------------------------
// Показывает диалог редактирования объекта.
//---------------------------------------------------------

// выбрать объект для редактирования
CComPtr<ITDMSObject> pObject;
if (SelectObject(&pObject, pApp, NULL)) {
    // показать диалог редактирования
    CComPtr<ITDMSDialogs> pDialogs;
    CheckError(pApp->get_Dialogs(&pDialogs));
    CComPtr<ITDMSEditObjectDlg> pEditObjectDlg;
    CheckError(pDialogs->get_EditObjectDlg(&pEditObjectDlg));
    CheckError(pEditObjectDlg->put_Object(pObject));
    VARIANT_BOOL bResult;
    CheckError(pEditObjectDlg->Show(&bResult));
}