TComErrorEvent = procedure(Sender: TObject; Errors: TComErrors) of object; property OnError: TComErrorEvent;