100           end;

   100           end;

   101      inc(dx)

   101      inc(dx)

   102      end;

   102      end;

   103   if (dx = dy) then ChangeCircleLines(x, y, dx, dy, Delta);

   103   if (dx = dy) then ChangeCircleLines(x, y, dx, dy, Delta);

   104 end;

   104 end;

   106 

   105 

   107 procedure ClearLandPixel(y, x: LongInt);

   106 procedure ClearLandPixel(y, x: LongInt);

   108 var p: PByteArray;

   107 var p: PByteArray;

   109 begin

   108 begin

   110 p:= @PByteArray(LandSurface^.pixels)^[LandSurface^.pitch * y];

   109 p:= @PByteArray(LandSurface^.pixels)^[LandSurface^.pitch * y];