1type
2  IExceptionHandler = interface(IDispatch)
3    ['{3C3C7202-5ED5-4EB4-9CDD-A929C18CA8BD}']
4    procedure HandleException(ContextObject: OleVariant; const Message: WideString; 
5      const ExtentedInfo: WideString; SupportServiceData: OleVariant); safecall;
6  end;