procedure DefineProgressBar(PB: TProgressBar);
Control external progress bar.
Result: stored in self (calling object)
Remarks:
If the built in Progress Dialog will not be used, a TProgressBar descendant can be quickly initialized to match the parameters of the loop and set the Min, Position, Step and Max properties of the TProgressBar component.