TIncreaseCalendarEvent = procedure ( Sender : TObject ; PreviousMonth : TCalendarMonth ; PreviousYear : Integer ) of object ;