Саша,
нет ли каких директив а-ля {$REGION}{$ENDREGION} или пимпочек настройках для реализации сабжа? Иногда развесистый код получается, особенно в процедурах
=================
Док.

Win7 Ultim x64/Deb 7.6 i386 (Deb 8.3 i386):
FB 3.0.0.32483, диалект 3, SS(win)/CS(Deb),
Lazarus 1.7; FPC 3.1.1, IBX by -Rik-; IBE 2016.4.29.1
IBE 2016.5.14.1