873                     begin

   873                     begin

   874                     gX:= (cpX + x) div 2;

   874                     gX:= (cpX + x) div 2;

   875                     gY:= (cpY + y) div 2;

   875                     gY:= (cpY + y) div 2;

   876                     end;

   876                     end;

   877 		        if (not eraseOnLFMatch or (Land[cpY + y, cpX + x] and LandFlags <> 0)) and

   877 		        if (not eraseOnLFMatch or (Land[cpY + y, cpX + x] and LandFlags <> 0)) and

   879                     begin

   879                     begin

   880                     if not onlyEraseLF then

   880                     if not onlyEraseLF then

   881                         begin

   881                         begin

   882                         LandPixels[gY, gX]:= 0;

   882                         LandPixels[gY, gX]:= 0;

   883                         Land[cpY + y, cpX + x]:= 0

   883                         Land[cpY + y, cpX + x]:= 0

   884                         end

   884                         end

   886                     end

   886                     end

   887                 end;

   887                 end;

   888         p:= PByteArray(@(p^[Image^.pitch]));

   888         p:= PByteArray(@(p^[Image^.pitch]));

   889         end;

   889         end;

   890     end;

   890     end;