typedef void __fastcall (__closure *TProcedureProgressEvent)(System::TObject* Sender, const System::UnicodeString Status, System::Word PercentDone, bool &Abort)