как да достигна до атрибут на елемент в XML-Delphi

Искам да взема стойността на определен атрибут от един
елемент в XML документ. Това трябва да стане с код на Delphi.
Използвам MSXML.

Zdravei, ak oiskash da dostignesh do niakoi atribut, sled parsvaneto, mojesh da izpolzvash neshto podobno :

function TSomeClass.rDOM(n: IXMLNode): boolean;
var i: Integer;
a: IXMLNode;
ok: boolean;
begin
ok := True;
for i := 0 to pred(n.AttributeNodes.Count) do
begin
a := n.AttributeNodes;
if LowerCase(a.LocalName)='sys'
then iSys := a.Text
else if LowerCase(a.LocalName)='label'
then iLabel := a.Text
end;
end;

Uspeh