* Inadvertenly applied untested change, undo

git-svn-id: trunk@39659 -

packages/fcl-registry/src/xregreg.inc

@@ -183,7 +183,7 @@ end;
 
 function TRegistry.GetKey(const Key: string): HKEY;
 begin
-  Result := FCurrentKey;
+  Result := 0;
 end;
 
 function TRegistry.GetKeyInfo(Out Value: TRegKeyInfo): Boolean;