Source position: pastree.pp line 1592
public procedure TPasImplWhileDo.ForEachCall(
const aMethodCall: TOnForEachPasElement;
const Arg: Pointer
); override;