procedure OleCheck(Result: HResult);
Выполняет проверку OLE-объектов. Используйте функцию для перехвата всех вызываемых методов IUnknown на основе COM, чтобы в случае сбоя этого метода было вызвано исключение.
Использование объектов COM