Jabber XMLStream parsen

[Luckie]

Jetzt wollte ich das in eine rekursive Funktion umbauen:

Delphi-Quellcode:

function 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 as IXMLTag).Name;
      end
    else
      result := GetTags((xn as IXMLTag).Children);
  end;
end;

Da bekomme ich aber in Zeile 14 den Fehler zur Laufzeit:

Zitat:

'Schnittstelle nicht unterstützt'.

Idee war es, das ganze in einem Treeview mit den entsprechenden Ebenen darzustellen, irgendwie oder so. Ich hätte dann noch eine globale Integer Variable mitgeführt, die entsprechend der Ebene hoch oder runtergesetzt wird oder so eben. Ich weiß noch nicht ganz genau, wie das gehen soll.