* Removed unused vars.

git-svn-id: trunk@22651 -

packages/fcl-registry/src/registry.pp

@@ -46,7 +46,9 @@ type
   TRegistry = class(TObject)
   private
     FStringSizeIncludesNull : Boolean;
+{$ifdef XMLREG}
     FSysData : Pointer;
+{$endif XMLREG}
     fAccess: LongWord;
     fCurrentKey: HKEY;
     fRootKey: HKEY;
@@ -337,9 +339,6 @@ end;
 
 function TRegistry.ReadCurrency(const Name: string): Currency;
 
-Var
-  RegDataType: TRegDataType;
-
 begin
   ReadBinaryData(Name, Result, SizeOf(Currency));
 end;
@@ -352,8 +351,6 @@ begin
 end;
 
 function TRegistry.ReadDateTime(const Name: string): TDateTime;
-Var
-  RegDataType: TRegDataType;
 
 begin
   ReadBinaryData(Name, Result, SizeOf(TDateTime));