--- a/hedgewars/uKeys.pas	Sat Jan 27 14:06:29 2007 +0000
+++ b/hedgewars/uKeys.pas	Sat Jan 27 14:18:33 2007 +0000
@@ -51,7 +51,7 @@
 end;
 
 procedure ProcessKbd;
-var  i: integer;
+var  i: LongInt;
      s: shortstring;
      pkbd: PByteArray;
      Trusted: boolean;
@@ -86,7 +86,7 @@
 end;
 
 procedure ResetKbd;
-var i, t: integer;
+var i, t: LongInt;
     pkbd: PByteArray;
 begin
 pkbd:= PByteArray(SDL_GetKeyState(@i));
@@ -96,7 +96,7 @@
 end;
 
 procedure InitKbdKeyTable;
-var i, t: integer;
+var i, t: LongInt;
     s: string[15];
 begin
 KeyNames[1]:= 'mousel';