XML Nodevalue liefert leeres Ergebnis

[DeddyH]

Wenn ich das so mache:

Delphi-Quellcode:

uses XMLDoc, XMLIntf;

const
  _XML =
'''
<Kunde>
  <Nachname>Abbenseth</Nachname>
  <Vorname>Peter</Vorname>
  <Geschlecht>M</Geschlecht>
</Kunde>
''';

procedure TForm5.FormCreate(Sender: TObject);
var
  lDoc: IXMLDocument;
  lParentNode: IXMLNode;
  lChildNode: IXMLNode;
begin
  lDoc := NewXMLDocument;
  lDoc.LoadFromXML(_XML);
  lDoc.Active := true;
  lParentNode := lDoc.DocumentElement;
  if Assigned(lParentNode) then
    begin
      lChildNode := lParentNode.ChildNodes.FindNode('Vorname');
      if Assigned(lChildNode) then
        ShowMessage(lChildNode.NodeValue);
    end;
end;

dann wird mir "Peter" ausgegeben.