TCustomPrintDialog
Create
TCommonDialog
WSRegisterClass
pt
DoExecute
DefaultTitle
Execute
Close
DoShow
DoCanClose
DoClose
HandleAllocated