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