Hello, Finally I found the solution:
var
Cadena: string;
s: TStringStream;
XmlDoc: TXMLDocument;
hijo: TDOMNodeList;
begin
Cadena := mmEntrada.Lines.Text;
s := TStringStream.Create(Cadena);
ReadXMLFile(XmlDoc, s);
hijo := XmlDoc.GetChildNodes;
if hijo <> nil then
mmResultado.Lines.Add('Tiene hijos');
end;
/BlueIcaro