TServerEventDispatch = class(TObject, IUnknown, IDispatch);

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