--- a/hedgewars/uLandObjects.pas	Thu May 24 15:20:29 2018 +0200
+++ b/hedgewars/uLandObjects.pas	Thu May 24 15:23:48 2018 +0200
@@ -699,7 +699,7 @@
 procedure ReadThemeInfo(var ThemeObjects: TThemeObjects; var SprayObjects: TSprayObjects);
 var s, key, nameRef: shortstring;
     f: PFSFile;
-    i, y: LongInt;
+    i: LongInt;
     ii, t: Longword;
     c2: TSDL_Color;
 begin