Source position: xmlutils.pp line 107
type THashForEach = function(
Entry: PHashItem;
arg: Pointer
):Boolean;