如何设置delphi自动清除无用代码

怎么设置delphi自动清除无用代码
我从装了一次delphi7以后发现写了代码以后在编译或者保存的时候delphi会自动清除掉里边没有用的代码，比如说空的过程
procedure 1
begin

end；
等等，以前不是这样过啊，请问怎么设置可以让它不清除啊，有时候我喜欢写好框架再往里加功能

[解决办法]
delphi7自动生成的过程或函数，如果里面没有内容，保存时就会自动清掉，里面有内容就不会了
最简单的就是象1楼说的
procedure 1
begin
//
end；