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