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