Source position: pastree.pp line 143
type TOnForEachPasElement = procedure(
El: TPasElement;
arg: pointer
) of object;