Puede aplicar una directiva especial {$ REGION 'Region Name'} para marcar regiones plegables "nombradas" en el editor de código.
Para marcar el código como una región, rodéelo con las directivas REGION y ENDREGION. Puede incluir un título que se mostrará cuando el código esté doblado y oculto.
He aquí un exampe de las dos regiones (anidados):
{$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}
plegarse o desplegarse una región, haga clic en el [+] (si expandido) o [-] (si se derrumbó) marcador de izquierda a la directiva $ region. Esto se verá:
alt text http://z.about.com/d/delphi/1/G/o/a/coderegions.gif
Esto es exactamente lo que estaba buscando. Muchas gracias. – stevosaurus
Para tu información, creo que esto fue introducido en Delphi 2005. –