typedef void __fastcall (__closure *TProgressEvent)(System::TObject* Sender, System::Word PercentDone)