Source position: lcltaskdialog.pas line 188
type TTaskDialogButtonClickedEvent = procedure(
Sender: PTaskDialog;
AButtonID: Integer;
var ACanClose: Boolean
) of object;