delphi 编译的时候 把Warning去除的方法