Was ist hier falsch?

[krys2000]

Hallo!
Kann mir jemand helfen?
Beim compilieren kriege ich jedesml FEHLERMELDUNG '[' erwartet aber ')' gefunden!
Hier ist die Quelle
Danke!

Delphi-Quellcode:

procedure TForm1.UpdateList;
const
NAMES: 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
begin
   MovieList.Items.Clear;
   MovieList.Items.BeginUpdate;

   movies:=xmlDoc.documentElement.selectNodes('movie'); // siehe II
   for i:=0 to movies.length-1 do
      begin
     subNode:=movies.item[i].selectSingleNode('id'); // siehe III

     MovieList.Items.Add;
     MovieList.Items[i].Caption:=subNode.text;   // siehe IV
       with  MovieList.Items[i].SubItems do
             begin
             for j:=0 to length(NAMES)-1 do   // HIER IST DIE FEHLERMELDUNG!!!!!!!!!!!!!!!!!!!
                  begin
                     subNode:= movies.item[i].selectSingleNode(NAMES[j]);
                     if subNode<> nil Then     // siehe VI
                     Add(subNode.text)
                     else
                     Add('');
                  end; // Ende  for j:=0 to length(NAMES)-1 do
             end; // Ende with  MovieList.Items[i].SubItems do

       end;  // Ende for i:=0 to movies.length-1 do
     MovieList.Items.EndUpdate;
end;

[edit=sakura] [delphi]Tags Mfg, sakura[/edit]