TFontDialog
WSRegisterClass
pt
DefaultTitle
ApplyClicked
Create
Destroy
TCommonDialog
DoExecute
Execute
Close
DoShow
DoCanClose
DoClose
HandleAllocated