TProgressRec
Declaration
// helper structure for OnProgress
TProgressRec = record
OnProgress: TIEProgressEvent;
Sender: TObject;
Val: integer; // counter (per=trunc(Per1*Val))
Tot: integer; // Max value
Per1: double; // (100/maxval)
Per2: double; // Special use cases
Aborting: pboolean;
end;