关于读取一个XML文件的问题!急啊(50分)

<?xml version="1.0" encoding="utf-8"?>
<ClientUpdateConfig>
<UpdateServer IP="127.0.0.1" Port="8085" />
<Step val="0" tag="" />
<Run name="calc.exe" />
</ClientUpdateConfig>
请问如何读取 <Step val="0" tag="" />
中的val的值

uses XMLDoc, XMLIntf
procedure TForm1.Button1Click(Sender: TObject);
var
XMLDoc:TXMLDocument;
Root:IXMLNode;
begin
XMLDoc:=TXMLDocument.Create(Application);
XMLDoc.Active:=TRUE;
XMLDoc.Version:='1.0';
XMLDoc.Encoding:='GB2312';
XMLDoc.LoadFromFile('c:/1.xml');
Root:=XMLDoc.DocumentElement;
edit1.Text:=root.ChildNodes.Nodes[1].Attributes['val'];
XMLDoc.free;
end;

TNaviveXML，有例子
http://www.2ccc.com/article.asp?articleid=4954

呵呵，我已经找到了，谢谢各位，代码如下
var
a: TXMLDocument;
b:string;
root: IXMLnode;
lei: IXMLNode;
k:integer;
begin
a:=TXMLDocument.Create(self);
a.FileName:='f:/UpConfig.xml';
a.Active:=true;
root := a.DocumentElement;
lei := root.ChildNodes.First;
while lei <> nildo
begin
if lei.NodeName = 'Step' then
b:=lei.Attributes['val'] ;
lei := lei.NextSibling;
end;
k:=strtoint(b);
if k>0 then
begin
application.Terminate;
end
else
winexec(pchar('C:/Documents and Settings/zsj/桌面/1111/New Folder/New Folder/AutoUpdate.exe'),sw_shownormal);
a.Free;
end;

多人接受答案了。