Вы можете применить специальную директиву {$ REGION 'Region Name'} для пометки "именованных" складных областей в редакторе кода.
Чтобы пометить код как регион, окружите его директивами REGION и ENDREGION. Вы можете включить заголовок, который будет отображаться, когда код свернут и скрыт.
Вот пример двух (вложенных) областей:
{$REGION 'Iterate Panels'}
for j := 0 to StatusBar1.Panels.Count - 1 do
begin
x := x + StatusBar1.Panels[j].Width;
{$REGION 'Inner if Region'}
if mpt.X < x then
begin
panel := j;
Break;
end;
{$ENDREGION}
end;
{$ENDREGION}
Чтобы сложить или развернуть регион, щелкните маркер [+] (если развернут) или [-] (если свернут) слева от директивы $ region. Это будет выглядеть:
альтернативный текст http://z.about.com/d/delphi/1/G/o/a/coderegions.gif