MyDAC
This type is used for the TCRBatchMove.OnBatchMoveProgress event.
CRBatchMove
TCRBatchMoveProgressEvent = procedure (Sender: TObject; Percent: integer) of object;