TTaskDialog
TCustomTaskDialog
pt
DoExecute
pt
DoOnButtonClicked
Create
Destroy
Execute