diff --git a/packages/fcl-registry/src/registry.pp b/packages/fcl-registry/src/registry.pp
index d0736a2134..92bc6f7a8c 100644
--- a/packages/fcl-registry/src/registry.pp
+++ b/packages/fcl-registry/src/registry.pp
@@ -192,6 +192,9 @@ ResourceString
   SRegSetDataFailed = 'Failed to set data for value "%s"';
   SRegGetDataFailed = 'Failed to get data for value "%s"';
 
+var
+  GlobalXMLFile : Boolean = False;
+
 implementation
 
 { ---------------------------------------------------------------------
diff --git a/packages/fcl-registry/src/xregreg.inc b/packages/fcl-registry/src/xregreg.inc
index e07784d66d..426f130a75 100644
--- a/packages/fcl-registry/src/xregreg.inc
+++ b/packages/fcl-registry/src/xregreg.inc
@@ -10,9 +10,11 @@ Const
   XFileName = 'reg.xml';
 
 Procedure TRegistry.SysRegCreate;
-
+var s : string;
 begin
-  FSysData:=TXMLRegistry.Create(XFileName);
+  s:=includetrailingpathdelimiter(GetAppConfigDir(GlobalXMLFile));
+  ForceDirectories(s);
+  FSysData:=TXMLRegistry.Create(s+XFileName);
   TXmlRegistry(FSysData).AutoFlush:=False;
 end;