--- a/hedgewars/uLand.pas	Mon Feb 26 17:09:13 2007 +0000
+++ b/hedgewars/uLand.pas	Sun Mar 11 17:19:28 2007 +0000
@@ -212,7 +212,7 @@
 end;
 
 procedure BezierizeEdge(var pa: TPixAr; Delta: hwFloat);
-var x, y, i, StartLoop: LongInt;
+var i, StartLoop: LongInt;
     opa: TPixAr;
 begin
 opa:= pa;