TCalendarDialog
CalendarDblClick
pt
GetNewDate
Create
Destroy
Execute
TCommonDialog
DoExecute
DefaultTitle
Close
DoShow
DoCanClose
DoClose
HandleAllocated