procedure OnException(const ServerClass: WideString; const ExceptionClass: WideString; const ErrorMessage: WideString; ExceptAddr: Integer; const ErrorIID: WideString; const ProgID: WideString; var Handled: Integer; var Result: HResult);

__fastcall OnException(const BSTR ServerClass, const BSTR ExceptionClass, const BSTR ErrorMessage, int ExceptAddr, const BSTR ErrorIID, const BSTR ProgID, int Handled, HRESULT Result);