TProgressUpdateEvent Event

type TProgressUpdateEvent = procedure(Sender: TObject; Event: TMtxProgressEvent) of object;