Source position: msegraphedits.pas line 535
public procedure tcustomprogressbar.doprogress(
const sender: tobject;
const avalue: real;
var acancel: Boolean
);