--- a/hedgewars/uWorld.pas	Tue Oct 20 21:20:47 2009 +0000
+++ b/hedgewars/uWorld.pas	Tue Oct 20 21:22:16 2009 +0000
@@ -319,7 +319,9 @@
     tdx, tdy: Double;
     grp: TCapGroup;
     s: string[15];
+{$IFDEF IPHONEOS}
     x,y: LongInt;
+{$ENDIF}
     offset: LongInt;
 begin
 if ZoomValue < zoom then