Jabber XMLStream parsen

[Luckie]

Hm, noch ein kleines Problem:

Delphi-Quellcode:

function GetFontColor(iter: IXMLIteratorEx): string;
var
  xn                : IXMLNode;
  s                 : string;
begin
  while iter.HasNext do
  begin
    xn := iter.Next;
    if xn.IsTag then
      with xn as IXMLTag do
      begin
        if xn.Name = 'color' then
        begin
          s := (xn as IXMLTag).Data;
          ShowMessage(s);
          result := s;
        end;
        GetFontColor(children);
      end;
  end;
end;

Delphi-Quellcode:

s := GetFontColor(Tag.Children);
ShowMessage(s);

In der Funktion GetFontColor zeigt mir ShowMessage den String noch an. Nach dem Funktionsaufruf ist der Rückgabewert jedoch leer?