diff --git a/packages/fcl-registry/src/xregreg.inc b/packages/fcl-registry/src/xregreg.inc
index 426f130a75..732018d9b4 100644
--- a/packages/fcl-registry/src/xregreg.inc
+++ b/packages/fcl-registry/src/xregreg.inc
@@ -47,10 +47,9 @@ function TRegistry.SysGetData(const Name: String; Buffer: Pointer;
 
 Var
   DataType : TDataType;
-  BS : Integer;
-
 begin
-  If TXmlregistry(FSysData).GetValueData(Name,DataType,Buffer^,BS) then
+  Result:=BufSize;
+  If TXmlregistry(FSysData).GetValueData(Name,DataType,Buffer^,Result) then
     begin
     Case DataType of
       dtUnknown : RegData:=rdUnknown;