* Fix for bug ID #29663

git-svn-id: trunk@33237 -

packages/fcl-registry/src/xmlreg.pp

@@ -605,15 +605,17 @@ Var
   N  : TDomElement;
   DN : TDomNode;
   L : Integer;
+  S: Ansistring; 
 begin
   N:=FindValueKey(Name);
   Result:=(N<>Nil);
   If Result then
     begin
     DN:=N.FirstChild;
-    if Assigned(DN) and (DN.NodeType=TEXT_NODE) then
-      L:=TDOMText(DN).Length
-    else
+    if Assigned(DN) and (DN.NodeType=TEXT_NODE) then begin
+      S := DN.NodeValue;
+      L:=Length(S);
+    end else
       L:=0;
     With Info do
       begin