Jabber XMLStream parsen

[Luckie]

Also so geht es erstmal ohne das sich eine AV bekomme:

Delphi-Quellcode:

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

Aber an den untergeordneten Tag von foobar komme ich immer noch nicht dran.