Update BaseHook.dpr