XML DOM: hasChildNodes returns always TRUE

I've got a problem with XML DOM and I found this post where the same problem is described. It looks like he found a solution but I can't get it.

My problem is that I want to parse a XML file and I don't know its exact structure. Every element could have childs and I don't know how many. I must create some kind of recursive function to step along the tree of the XML file. Maybe someone created a solution for that already :?:

I thought I could use

Node.hasChildNodes

to find out if there are child elements. But this function returns TRUE even if there is only text within the node. That means every time I reach the bottom / lowermost level of the tree and there is only text content within this element, hasChildNodes returns TRUE and I get an error message. It says that there is no instance of an automation variable because the current node is not filled due to the fact that the current node list can't return a node from a text content. Or did I misunderstand something?

I created a test function and a test XML file...

IF NOT ISCLEAR(XMLDocument) THEN
  CLEAR(XMLDocument);
CREATE(XMLDocument);

XMLDocument.setProperty('ProhibitDTD',FALSE);
XMLDocument.validateOnParse(FALSE);
IF XMLDocument.load('C:\temp3.xml') THEN BEGIN
  XMLCurrNode := XMLDocument.selectSingleNode(XMLDocument.documentElement.nodeName);

  IF XMLCurrNode.hasChildNodes THEN BEGIN
    XMLNodeList := XMLCurrNode.childNodes;
    XMLCurrNode := XMLNodeList.nextNode;
    MESSAGE('Node: %1\Text: %2',XMLCurrNode.nodeName,XMLCurrNode.text);
  
    IF XMLCurrNode.hasChildNodes THEN BEGIN
      XMLNodeList := XMLCurrNode.childNodes;
      XMLCurrNode := XMLNodeList.nextNode;
      MESSAGE('Node: %1\Text: %2',XMLCurrNode.nodeName,XMLCurrNode.text);
    
      IF XMLCurrNode.hasChildNodes THEN BEGIN
        XMLNodeList := XMLCurrNode.childNodes;
        XMLCurrNode := XMLNodeList.nextNode;
        MESSAGE('Node: %1\Text: %2',XMLCurrNode.nodeName,XMLCurrNode.text);

        IF XMLCurrNode.hasChildNodes THEN BEGIN
          XMLNodeList := XMLCurrNode.childNodes;
          XMLCurrNode := XMLNodeList.nextNode;
          MESSAGE('Node: %1\Text: %2',XMLCurrNode.nodeName,XMLCurrNode.text);
        END;
      END;
    END;
  END;
END;

XML file temp3.xml

<?xml version="1.0" encoding="ISO-8859-1" ?>
<!DOCTYPE Data SYSTEM "myDTD.dtd">
<!--  @version: -->
<Data arg1="TEST">
  <a Aarg1="A1 arg" Aarg2="A2 arg">
    <AA AAarg1="AA1 arg">AA content</AA>
    <AB>AB content</AB>
  </a>
  <b>b content</b>
    <BA BAarg1="BA1 arg">
      <BAA>BAA content</BAA>
    </BA>
  <c>c content</c>
</Data>