TCalendarDialog
pt
WSRegisterClass
GetNewDate
CalendarDblClick
DefaultTitle
Create
Execute
TExtCommonDialog
GetLeft
GetHeight
GetTop
GetWidth
SetLeft
SetTop
Destroy