You can replace MethRegister with instance of your class, derived from TDefaultMethodRegister to support more event types.

MethRegister: TDefaultMethodRegister;