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

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

------解决方案--------------------
DelForEx