Jabber XMLStream parsen

[Luckie]

Nachtrag: Ich habe jetzt daraus mal eine Funktion gemacht, denn die ShowMessage nützt mir ja nichts. ,)

Delphi-Quellcode:

function TForm1.GetTags(iter: IXMLIteratorEx): String;
var
  xn: IXMLNode;
begin
  while iter.HasNext do
  begin
    xn := iter.Next;
    if xn.IsTag then with xn as IXMLTag do
    begin
      result := xn.Name;
      GetTags(Query('*'));
    end;
  end;
end;

Jetzt fehlt mir aber der erste Tag, nämlich foobar.