Тип события, при прогрессе действия
TActionProgressEvent = procedure(Sender: TObject; ActionCode: integer; AObject: TObject; var flInterrupt: boolean) of object;