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