<?xml version="1.0" standalone="yes" ?>
<movieorganizer>
 <movie>
  <id>0</id>
  <name>Krieg der Sternen</name>
  <format>DVD</format>
  <ton>DD5.1</ton>
  <anzmedien>5</anzmedien>
  <bildqualitaet>1+</bildqualitaet>
  <tonqualitaet>1</tonqualitaet>
  <gesamt>1+</gesamt>
  <verliehen />
  <comment>Fiction aber geile Film</comment>
  <sreenshot />
 </movie>
</movieorganizer>

procedure TForm1.UpdateList;
const
KNOTEN: array[0..8] of String = ('name', 'format', 'ton', 'anzmedien',
      'bildqualitaet', 'tonqualitaet', 'gesamt', 'verliehen', 'comment'); // siehe I
Var
movies : IXMLDOMNodeList; // Wird alle Filme (die Pakete) enthalten
subNode : IXMLDOMNode; // enthält eine Node
i, j: Integer; // Laufvariablem
Test: String;
begin
    Memo1.Lines.Clear;
   movies:=xmlDoc.documentElement.selectNodes('movie'); // siehe II
   for i:=0 to movies.length-1 do
      begin
     subNode:=movies.item[i].selectSingleNode('id'); // siehe III
      Memo1.Lines.Add(subNode.nodeName+' ------> '+subNode.text);
      Memo1.Lines.Add('');
         for j:=0 to length(KNOTEN)-1 do // siehe V
                      begin
                     subNode:= movies.item[i].selectSingleNode(KNOTEN[j]);
                     if subNode<> nil Then // siehe VI
                     begin
                      Memo1.Lines.Add(subNode.nodeName+' ------> '+subNode.text);
                      end
                     else
                     Memo1.Lines.Add('');
                  end; // ENDE for j:=0 to length(NAMES)-1 do
            // ENDE with MovieList.Items[i].SubItems do

       end; // ENDE for i:=0 to movies.length-1 do
end;

?xml version="1.0" standalone="yes"?>
<movieorganizer>
    <movie id="0" name="Krieg der Sternen" format="DVD" ton="DD5.1" anzmedien="5" bildqualitaet="1" tonqualitaet="1" gesamt="1" verliehen="" comment="Fiction aber geile Film" sreenshot=""/>
</movieorganizer>