TClickCalendarEvent = procedure ( Sender : TObject ; ACol , ARow : Longint ; CellDate : TDateTime ) of object ;