``` for I := 0 to network.ChildNodes['network'].ChildNodes['measuredev'].ChildNodes.Count - 1 do begin TransUnits := network.ChildNodes['network'].ChildNodes['measuredev'].ChildNodes; for j := 0 to TransUnits.Count - 1 do begin if TransUnits[i].ChildNodes['storagenr'].Text ='1' then memo1.Lines.Add(TransUnits[i].ChildNodes['value'].Text) end; end; end;~~