Source position: dialogs.pp line 590
type TTaskDlgTimerEvent = procedure(
Sender: TObject;
TickCount: Cardinal;
var Reset: Boolean
) of object;