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