From 7001a02ac6d3e6ec4dc16169c0e4e7cad1019562 Mon Sep 17 00:00:00 2001
From: Marc Weustink <marc@dommelstein.nl>
Date: Mon, 2 Feb 2015 20:24:34 +0000
Subject: [PATCH] Initializa function result of FindValueKey when current
 element is nil

git-svn-id: trunk@29607 -
---
 packages/fcl-registry/src/xmlreg.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/fcl-registry/src/xmlreg.pp b/packages/fcl-registry/src/xmlreg.pp
index 85a7f4b44e..7fd819601d 100644
--- a/packages/fcl-registry/src/xmlreg.pp
+++ b/packages/fcl-registry/src/xmlreg.pp
@@ -426,10 +426,10 @@ Var
   Node : TDOMNode;
 
 begin
+  Result:=Nil;
   If FCurrentElement<>Nil then
     begin
     Node:=FCurrentElement.FirstChild;
-    Result:=Nil;
     While (Result=Nil) and (Assigned(Node)) do
       begin
       If (Node.NodeType=ELEMENT_NODE) and (Node.NodeName=SValue) then