Delphi通过消息钩子屏蔽定时器