* Fix bug #34176, use access field when creating key

git-svn-id: trunk@39666 -

packages/fcl-registry/src/winreg.inc

@@ -58,7 +58,7 @@ begin
                               0,
                               '',
                               REG_OPTION_NON_VOLATILE,
-                              KEY_ALL_ACCESS,
+                              FACCESS,
                               SecurityAttributes,
                               Handle,
                               @Disposition);