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