Source position: controls.pp line 2199
type TForEachZoneProc = procedure(
Zone: TDockZone
) of object;