Source position: fpsonar.traversal.pp line 57
type TAstNodeProc = procedure(
aStmt: TPasImplElement
) of object;