XMLAttribut auslesen

[Luckie]

So, durch die SubNodes "Zeitraum" kann ich schon mal durch it6terieren:

Delphi-Quellcode:

function TConfigFile.GetIsYearConfigured: Boolean;
var
  ChildNodes: IXMLDOMNodeList;
  SubNode: IXMLDOMNode;
  Attr: IXMLAttribute;
  i: Integer;
  s: String;
begin
  result := False;
  if FYear <> '' then
  begin
    ChildNodes := FXmlDoc.documentElement.selectNodes('Zeitraum');
    for i := 0 to ChildNodes.length - 1 do
    begin
      SubNode := ChildNodes.item[i];

      //s := Attr.value;
      //Writeln(s);
    end;
  end
  else
    raise Exception.Create(rsNoYear);
end;

Nur wie komme ich jetzt an das Attribut "jahr" dran?