typedef void __fastcall (__closure *TServerProcedureEvent)(System::TObject* Sender, TDBISAMSession* ServerSession, const System::UnicodeString ProcedureName)