TcxSchedulerEventIntersectEvent = procedure(Sender: TcxCustomSchedulerStorage; AEvent1: TcxSchedulerEvent; AEvent2: TcxSchedulerEvent; var Allow: Boolean) of object;