TDatabaseLoginEvent = procedure (Database: TDatabase; LoginParams: TStrings) of object;
(Database: TDatabase; LoginParams: TStrings) ( TDatabaseLoginEvent)();
DBTables
This is type DBTables.TDatabaseLoginEvent.