OmniXML: Wie komme ich an das Attribute?

[guidok]

Ich stehe gerade auf dem Schlauch und trotz intensiver Suche bin ich noch nicht auf die Lösung gekommen.

Ich erzeuge eine XML Datei:

Delphi-Quellcode:

  var
    XMLDoc: IXMLDocument;
    XMLElement : IXMLElement;
    idx: Integer;
begin
  XMLDoc := CreateXMLDoc;

  XMLDoc.DocumentElement := XMLDoc.CreateElement('Root_Testfile');

  for idx := 0 to 1000 do begin
    XMLElement := XMLDoc.CreateElement('Subnode' + IntToStr(idx));
    XMLElement.SetAttribute('Attr1', 'Irgendein Text' + DateTimeToStr(Now));
    XMLDoc.DocumentElement.AppendChild(XMLElement);
  end;
  XMLDoc.Save('C:/XMLTest.xml');

Jetzt möchte ich nach dem Laden wieder auf die Attribute zugreifen (lesen und schreiben), aber wie?

Delphi-Quellcode:

  var
    XMLDoc: IXMLDocument;
    XMLElement: IXMLElement;
    XMLNode : IXMLNode;
begin
  XMLDoc := CreateXMLDoc;

  XMLDoc.Load('C:/XMLTest.xml');

  XMLNode := XMLDoc.SelectSingleNode('Subnode999'); //z.B. Subnode999