typedef void __fastcall (__closure *TEDBSessionLoginEvent)(System::TObject* Sender, AnsiString &UserName , AnsiString &Password, bool &Continue)