procedure TForm1.Button1Click(Sender: TObject);
var
xmlDoc : IXMLDOMDocument;
xmlNode : IXMLDOMNode;
i : integer;
begin
xmlDoc:=IXMLDOMDocument(CreateOleObject('MSXML.DOMDocument'));
xmldoc.load('c:\dd.xml');
for i:= 0 to xmldoc.getElementsByTagName('R').length -1 do
begin
showmessage(xmldoc.getElementsByTagName('R').item[i].text);
end;
xmldoc.getElementsByTagName('R').item[0].text := '10';
xmldoc.save('c:\dd.xml');
end;