This Event is fired every time through the GetCut Loop.
type TBoredCutLoopEvent = procedure (Sender: TObject; var Cancel: Boolean) of object;
property OnLoop: TBoredCutLoopEvent;
Description
This Event is fired every time through the GetCut Loop. Set Cancel to True if you want to cancel the process. This event will be called MANY times, so do not load up this event with lots of processing or you will significantly impair the performance of the routine. Use this event to update the progress bar, etc.