typedef void __fastcall (__closure *TEDBServerSessionLoginEvent)(System::TObject* Sender, const System::UnicodeString UserName, const System::UnicodeString UserPassword, const System::UnicodeString Address, const System::UnicodeString ProcessName, int ThreadID, System::Currency ReleaseNumber, int BuildNumber, bool &AllowLogin)