Source position: gnode.inc line 30
type TGNodeForeachFunc = procedure(
node: PGNode;
data: gpointer
);