请教Delphi下有没有收缩代码的工具

请问Delphi下有没有收缩代码的工具？
比如写一个很长的循环或者if语句，想把这个循环或者if的程序段根据需要收缩或者展开，请问有没有这样的工具？

[解决办法]
DelForEx