diff --git a/2.10/Source/Options.pas b/2.10/Source/Options.pas
index f688182..ee3b67c 100644
--- a/2.10/Source/Options.pas
+++ b/2.10/Source/Options.pas
@@ -356,7 +356,7 @@ end;
 
 procedure TOptionsForm.btnOKClick(Sender: TObject);
 var
-  v: integer;
+  v: int64;
   i: integer;
 begin
 
diff --git a/2.10/Source/Regstry.pas b/2.10/Source/Regstry.pas
index e5d9389..ce15f16 100644
--- a/2.10/Source/Regstry.pas
+++ b/2.10/Source/Regstry.pas
@@ -28,7 +28,7 @@ implementation
 
 uses Windows, SysUtils, Forms, Registry, Global, Dialogs, XFormMan;
 
-procedure UnpackVariations(v: integer);
+procedure UnpackVariations(v: int64);
 { Unpacks the variation options form an integer }
 var
   i: integer;
@@ -37,7 +37,6 @@ begin
     Variations[i] := boolean(v shr i and 1);
 end;
 
-
 procedure ReadSettings;
 var
   Registry: TRegistry;