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