在編譯時獲得提示

在Delphi2．0中，編譯時，可以讓編譯器告訴你一些提示，比如哪些變量聲明了，卻從來沒有使用過。我們知道，可以通過菜單中的選項來控制是否要Delphi這樣做，但如果由於一些特殊需要，你只要在指定的代碼段需要Delphi這樣的提示，怎麼辦呢？請參考如下的程序。
　　｛＄HINTON｝
　　procedureTform1．Button1Click（Sender：TObject）；
　　var
　　X：integer；
　　begin