--- a/hedgewars/uKeys.pas	Tue Jul 28 12:50:47 2009 +0000
+++ b/hedgewars/uKeys.pas	Tue Jul 28 16:29:39 2009 +0000
@@ -110,9 +110,7 @@
 TryDo(i < cKeyMaxIndex, 'SDL keys number is more than expected (' + inttostr(i) + ')', true);
 
 for t:= 0 to Pred(i) do
-    tkbd[i]:= pkbd^[i];
-	
-	AddProgress;
+    tkbd[i]:= pkbd^[i]
 end;
 
 procedure InitKbdKeyTable;