Problem beim Auslesen einer XML Datei

[ChristianG]

Delphi-Quellcode:

 var sURL : string;
 // value: Tvalue;
    sAllTimes, sTime,sID,Delimiter, sOutput : string;
    i : integer;
    node : IXMLNode;
    sDateAlt, sDate : string;
begin
  Delimiter := '';
  sAllTimes := '';
  sDateAlt  := '';
  sURL := 'http://kinobox.net:11800/1.0/shows?siteid=100004&eventid=' + IntToStr(aEventID) + '&from='+ FormatDateTime('YYYY-MM-DD', date) +'&to='+ FormatDateTime('YYYY-MM-DD', date + 14) +'&apikey=2013dolphinV8';
  sOutput := idHTTP1.Get(sURL);

  XMLDocument1.XML.Text := sOutput;
  XMLDocument1.Active := true;

  // ueber all knoten laufen
  for i := 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin
    node := XMLDocument1.DocumentElement.ChildNodes.Get(i);

    // für jeden Knoten die Uhrzeit (Showtime) und die ShowID rauslesen
    // Showtime in der Oberfläche anzeigen
    sTime := node.ChildNodes.FindNode('ShowTime').Text;
    sDate := CutDate(sTime, sDateAlt);


    // eintrag ins dataset schreiben. append, fieldbyname, post
      cdsShows.Append;
    cdsShows.FieldByName('Position').asInteger := i;
    cdsShows.FieldByName('ShowTime').AsDateTime := GetShowDateTime(sTime);
    cdsShows.FieldByName('ShowID').AsInteger := node.ChildNodes.FindNode('Show').Attributes['ID'];//geht nicht //XMLDocument1.DocumentElement.ChildNodes.Findnode('Show').Attributes['ID'] ;
    cdsShows.Post;
    Grid2.RowCount := XMLDocument1.DocumentElement.ChildNodes.Count;
  end;
end;

Ich komme nicht weiter... Es funktioniert nur mit
XMLDocument1.DocumentElement.ChildNodes.Findnode('Show').Attributes['ID'] Aber dort wird die Position nicht abgefragt, die ich unbedingt benötige, um eine URL daraus zu machen
  bURL := 'http://kinobox.net:11800/1.0/shows/' + InttoStr(ShowID) + '/tickets?apikey=2013dolphinV8'; Kann mir jemand helfen?
Gruß