在编译时获得提示

在Delphi2．0中，编译时，可以让编译器告诉你一些提示，比如哪些变量声明了，却从来没有使用过。我们知道，可以通过菜单中的选项来控制是否要Delphi这样做，但如果由于一些特殊需要，你只要在指定的代码段需要Delphi这样的提示，怎么办呢？请参考如下的程序。
　　｛＄HINTON｝
　　procedureTform1．Button1Click（Sender：TObject）；
　　var
　　X：integer；
　　begin
　　end；
　　｛＄HINTOFF｝