Procedure TWPXMLOneLevel.SetAnyData(x:TObject)Unit: WPXMLintClass: WPXMLint.TWPXMLOneLevelParameters x:TObject