XMLTextReader XMLStrukturen auslesen

[Master_BB]

Hallo,
ich habe derzeit ein problem beim auslesen einer XML Datei.
also ich möchte mit dem XMLTextReader die XML Daten auslesen
und in mein Objekt packen. Es geht um eine Bücherverwaltung.

Das hier ist jetzt die XML Datei mit einem Buch eintrag

XML-Code:

<Buecher>
  <Buch Name="EinBuch">
    <BuchTitel>EinTitel</BuchTitel>
    <BuchAuthor>EinAuthor</BuchAuthor>
    <ISBN>0299342</ISBN>
    <KaufDatum>07.10.2005 13:42:25</KaufDatum>
    <Genre>EinGenre</Genre>
    <VerliehenName/>
    <VerliehenDatum>01.01.0001 00:00:00</VerliehenDatum>
    <Beschreibung>Blabla</Beschreibung>
    <GelesenList>
      <Gelesen Nr="0">
        <Start>04.10.2005 13:42:42</Start>
        <End>07.10.2005 13:42:42</End>
      </Gelesen>
    </GelesenList>
  </Buch>
</Buecher>

So Auslesen tuhe ich mit dieser Routine

Delphi-Quellcode:

      while AXMLTextReader.read do
      begin
        if (AXMLTextReader.Name.ToLower.CompareTo('buch') = 0) and
           (AXMLTextReader.AttributeCount = 1)                 then
        begin
          ABookItem := AddNewBook(AXMLTextReader.Item[AXMLTextReader.AttributeCount - 1]);
        end;
        try
          if ABookItem <> nil then
          begin
            ABookItem.BookTitle   := AXMLTextReader.ReadElementString('BuchTitel');
            ABookItem.BookAuthor  := AXMLTextReader.ReadElementString('BuchAuthor');
            ABookItem.ISBN        := AXMLTextReader.ReadElementString('ISBN');
            ABookItem.BuyDate     := Convert.ToDateTime(AXMLTextReader.ReadElementString('KaufDatum'));
            ABookItem.Genre       := AXMLTextReader.ReadElementString('Genre');
            ABookItem.LendToName  := AXMLTextReader.ReadElementString('VerliehenName');
            ABookItem.LendDate    := Convert.ToDateTime(AXMLTextReader.ReadElementString('VerliehenDatum'));
            ABookItem.Description := AXMLTextReader.ReadElementString('Beschreibung');
            AXMLTextReader.ReadStartElement('GelesenList');
            if (AXMLTextReader.Name.ToLower.CompareTo(('Gelesen').ToLower) = 0) and
               (AXMLTextReader.AttributeCount = 1)                              then
            begin
              AReadItem           := ABookItem.ReadList.AddReadItem;
              AReadItem.BeginRead := Convert.ToDateTime(AXMLTextReader.ReadElementString('Start'));
              AReadItem.EndRead   := Convert.ToDateTime(AXMLTextReader.ReadElementString('End'));
            end;
          end;
        except
        end;
      end;
    finally
      AXMLTextReader.Close;
    end;

Problem ist nun:
Das AReadItem mit seinen 2 Propertys wird nicht gefüllt.
Und ich weiß nicht warum.

Wenn mir hierbei jemand helfen könnte wäre das echt genial.

greetz
Master_BB