diff -r e7b1f0aaf36f -r 434cd1284204 hedgewars/uKeys.pas
--- a/hedgewars/uKeys.pas	Mon Jan 17 23:24:55 2011 +0100
+++ b/hedgewars/uKeys.pas	Tue Jan 18 00:12:39 2011 +0100
@@ -164,8 +164,11 @@
 end;
 
 procedure ResetKbd;
-var i, j, k, t: LongInt;
-{$IFNDEF IPHONEOS}pkbd: PByteArray;{$ENDIF}
+var j, k, t: LongInt;
+{$IFNDEF IPHONEOS}
+    i: LongInt;
+    pkbd: PByteArray;
+{$ENDIF}
 begin
 
 k:= SDL_GetMouseState(nil, nil);
@@ -223,8 +226,9 @@
     end;
 {$ENDIF}
 
+// what is this final loop for?
 for t:= 0 to cKeyMaxIndex do
-    tkbd[i]:= tkbdn[i]
+    tkbd[t]:= tkbdn[t]
 end;
 
 procedure InitKbdKeyTable;