typedef void __fastcall (__closure *TServerLoginEvent)(System::TObject* Sender, const AnsiString UserName , System::TObject* UserData)