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