--- a/hedgewars/uLandObjects.pas	Tue Apr 19 15:34:21 2011 -0400
+++ b/hedgewars/uLandObjects.pas	Wed Apr 20 05:26:47 2011 +0200
@@ -368,7 +368,7 @@
 procedure ReadThemeInfo(var ThemeObjects: TThemeObjects; var SprayObjects: TSprayObjects);
 var s, key: shortstring;
     f: textfile;
-    i, ii, numFlakes: LongInt;
+    i, ii: LongInt;
     c1, c2: TSDL_Color;
 
     procedure CheckRect(Width, Height, x, y, w, h: LongWord);