Source position: dialogs.pp line 589
type TTaskDlgClickEvent = procedure(
Sender: TObject;
AModalResult: TModalResult;
var ACanClose: Boolean
) of object;