--- a/hedgewars/uMisc.pas	Fri Feb 12 18:40:14 2010 +0000
+++ b/hedgewars/uMisc.pas	Sat Feb 13 01:56:35 2010 +0000
@@ -642,7 +642,7 @@
 
 
 procedure init_uMisc;
-var i: LongInt;
+{$IFNDEF IPHONEOS}var i: LongInt;{$ENDIF}
 begin
 	cDrownSpeed.QWordValue	:= 257698038;		// 0.06
 	cMaxWindSpeed.QWordValue:= 2147484;		// 0.0005