XML Einlesen

[DelTurbo]

Hallo,
ich peil das einfach nicht. Ich soll aus folgendem XML die <ticket> Daten auslesen. Ich komme leider nur an das erste dran. Wäre super wenn jemand einen Link hätte wie ich das machen muss. Oder mein kleine Beispiel ergänzen könnte damit ich auch an das 2. <ticket> usw. komme. Späer sind natürlich mehr als 2 Tickets enthalten.

Vielen dank im Voraus

Code:

  <?xml version="1.0" encoding="utf-8" ?> 
- <ticketapi>
- <meta>
  <name>Test</name> 
  <datum>09.07.2019</datum> 
  <tickets>2</tickets> 
  <in>0</in> 
  <out>2</out> 
  </meta>
- <ticket>
  <code>1234</code> 
  <vorname>John</vorname> 
  <nachname>Doe</nachname> 
  <eingecheckt>0</eingecheckt> 
  </ticket>
- <ticket>
  <code>5678</code> 
  <vorname>Jane</vorname> 
  <nachname>Doe</nachname> 
  <eingecheckt>0</eingecheckt> 
  </ticket>
  </ticketapi>

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
  XMLDoc  :IXMLDocument;
  Buffer  :TMemoryStream;
  i       :Integer;
begin
    Buffer:=TMemoryStream.Create;
    IdHTTP1.Get('http://test.homesrv/app-api.php',Buffer);
    Buffer.Seek(0,0);
    XMLDoc:=newXMLDocument;
    XMLDoc.LoadFromStream(Buffer);
    XMLDoc.Active:=True;
    ShowMessage(XMLDoc.DocumentElement.ChildNodes['ticket'].ChildNodes['code'].NodeValue);
    ShowMessage(XMLDoc.DocumentElement.ChildNodes['ticket'].ChildNodes['code'].NodeValue);
    Buffer.Free;
end;