5 files changed, 11 insertions, 12 deletions
diff --git a/Game/Code/Menu/UDisplay.pas b/Game/Code/Menu/UDisplay.pas
index 70e678fb..82b4acc7 100644
--- a/Game/Code/Menu/UDisplay.pas
+++ b/Game/Code/Menu/UDisplay.pas
@@ -40,7 +40,7 @@ type
     procedure PrintScreen;
     constructor Create;
     // fade mod
-    destructor Destroy;
+    destructor Destroy; override;
     // end
     procedure ScreenShot;
 
diff --git a/Game/Code/Menu/UMenuButton.pas b/Game/Code/Menu/UMenuButton.pas
index cb343cf8..f3b00830 100644
--- a/Game/Code/Menu/UMenuButton.pas
+++ b/Game/Code/Menu/UMenuButton.pas
@@ -87,9 +87,9 @@ implementation
 uses UDrawTexture, SysUtils, windows;
 
 procedure TButton.SetX(Value: real);
-var
+{var
   dx:   real;
-  T:    integer;    // text
+  T:    integer;    // text}
 begin
   {dY := Value - Texture.y;
 
@@ -105,9 +105,9 @@ begin
 end;
 
 procedure TButton.SetY(Value: real);
-var
+{var
   dY:   real;
-  T:    integer;    // text
+  T:    integer;    // text}
 begin
   {dY := Value - PosY;
 
@@ -276,6 +276,7 @@ var
 begin
   if Visible then begin
     //Fade Mod
+    T:=0;
     if Fade then
     begin
       if (FadeProgress < 1) and (FadeProgress > 0) then
diff --git a/Game/Code/Menu/UMenuSelect.pas b/Game/Code/Menu/UMenuSelect.pas
index f7bb871f..72141a27 100644
--- a/Game/Code/Menu/UMenuSelect.pas
+++ b/Game/Code/Menu/UMenuSelect.pas
@@ -99,8 +99,8 @@ begin
 end;
 
 procedure TSelect.SetSelect(Value: boolean);
-var
-  SO:     integer;
+{var
+  SO:     integer;}
 begin // default 1, 0.4
   SelectBool := Value;
   if Value then begin
diff --git a/Game/Code/Menu/UMenuSelectSlide.pas b/Game/Code/Menu/UMenuSelectSlide.pas
index c1ccad6d..3659c00d 100644
--- a/Game/Code/Menu/UMenuSelectSlide.pas
+++ b/Game/Code/Menu/UMenuSelectSlide.pas
@@ -117,9 +117,9 @@ begin
 end;
 
 procedure TSelectSlide.SetSelect(Value: boolean);
-var
+{var
   SO:     integer;
-  I:      integer;
+  I:      integer;}
 begin
   SelectBool := Value;
   if Value then begin
@@ -187,7 +187,7 @@ procedure DoSelection(Sel: Cardinal);
       TextOpt[I].ColB := STDColB;
       TextOpt[I].Int := STDInt;
     end;
-    if (Sel <= high(TextOpt)) then
+    if (integer(Sel) <= high(TextOpt)) then
     begin
       TextOpt[Sel].ColR := STColR;
       TextOpt[Sel].ColG := STColG;
diff --git a/Game/Code/Menu/UMenuStatic.pas b/Game/Code/Menu/UMenuStatic.pas
index 5f19fbf3..cfa4a596 100644
--- a/Game/Code/Menu/UMenuStatic.pas
+++ b/Game/Code/Menu/UMenuStatic.pas
@@ -21,8 +21,6 @@ implementation
 uses UDrawTexture;
 
 procedure TStatic.Draw;
-var
-  Pet:    integer;
 begin
   if Visible then
   begin