1 files changed, 5 insertions, 7 deletions
diff --git a/Game/Code/Screens/UScreenLevel.pas b/Game/Code/Screens/UScreenLevel.pas
index 856e0cf1..145a3b2a 100644
--- a/Game/Code/Screens/UScreenLevel.pas
+++ b/Game/Code/Screens/UScreenLevel.pas
@@ -22,12 +22,12 @@ implementation
 uses UGraphic, UMain, UIni, UTexture, ULog;
 
 function TScreenLevel.ParseInput(PressedKey: Cardinal; ScanCode: byte; PressedDown: Boolean): Boolean;
-var
-  SDL_ModState: Word;
+{var
+  SDL_ModState: Word; }
 begin
   Result := true;
-  SDL_ModState := SDL_GetModState and (KMOD_LSHIFT + KMOD_RSHIFT
-    + KMOD_LCTRL + KMOD_RCTRL + KMOD_LALT  + KMOD_RALT {+ KMOD_CAPS});
+  //SDL_ModState := SDL_GetModState and (KMOD_LSHIFT + KMOD_RSHIFT
+  //  + KMOD_LCTRL + KMOD_RCTRL + KMOD_LALT  + KMOD_RALT {+ KMOD_CAPS});
 
   If (PressedDown) Then
   begin // Key Down
@@ -71,8 +71,6 @@ begin
 end;
 
 constructor TScreenLevel.Create;
-var
-  I:    integer;
 begin
   inherited Create;
 
@@ -101,4 +99,4 @@ begin
   Button[2].Texture.ScaleW := Progress;
 end;
 
-end.
+end.
+\ No newline at end of file