Source position: mseclasses.pas line 171
type progresseventty = procedure(
const sender: tobject;
const avalue: real;
var acancel: Boolean
) of object;