* Merging revisions r44127 from trunk:

    ------------------------------------------------------------------------
    r44127 | michael | 2020-02-07 18:47:36 +0100 (Fri, 07 Feb 2020) | 1 line
    
    * Applied patch from Bart Broersma to fix bug ID #36663
    ------------------------------------------------------------------------

git-svn-id: branches/fixes_3_2@46652 -

packages/fcl-registry/src/winreg.inc

@@ -48,12 +48,13 @@ Var
   Disposition: Dword;
   Handle: HKEY;
   SecurityAttributes: Pointer; //LPSECURITY_ATTRIBUTES;
+  U: UnicodeString;
 
 begin
   SecurityAttributes := Nil;
-  Key:=PrepKey(Key);
+  U:=PrepKey(Key);
   FLastError:=RegCreateKeyExW(GetBaseKey(RelativeKey(Key)),
-                              PWideChar(Key),
+                              PWideChar(U),
                               0,
                               '',
                               REG_OPTION_NON_VOLATILE,