TdxXMLNodeForEachProc = reference to procedure(ANode: TdxXMLNode; AUserData: Pointer);