--- a/hedgewars/uLand.pas	Sun Apr 13 12:29:26 2008 +0000
+++ b/hedgewars/uLand.pas	Sun Apr 13 12:33:16 2008 +0000
@@ -631,7 +631,6 @@
 end;
 
 procedure UpdateLandTexture(Y, Height: LongInt);
-var i: integer;
 begin
 if LandTexture <> nil then
    begin