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

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

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

[解决办法]
DelForEx