TEventDispatch = class(TObject, IUnknown, IDispatch);

class TEventDispatch : public TObject, public IUnknown, public IDispatch;