TBDEInitProc = procedure (Session: TSession);
(Session: TSession) ( TBDEInitProc)();
DBTables
This is type DBTables.TBDEInitProc.