--- a/hedgewars/uTextures.pas	Sun Nov 06 13:17:42 2011 -0500
+++ b/hedgewars/uTextures.pas	Sun Nov 06 13:53:25 2011 -0500
@@ -100,8 +100,7 @@
 end;
 
 procedure Surface2GrayScale(surf: PSDL_Surface);
-var tw, th, x, y: Longword;
-    tmpp: pointer;
+var tw, x, y: Longword;
     fromP4: PLongWordArray;
 begin
 fromP4:= Surf^.pixels;