Update simba.vartype_pointarray.pas

Author: Torwent

Source/simba.vartype_pointarray.pas

@@ -1118,8 +1118,7 @@ function TPointArrayHelper.Erode(Iterations: Integer): TPointArray;
   B: TBox;
 begin
   Result := Default(TPointArray);
-  Iterations -= 1;
-  if (Length(Self) = 0) or (Iterations < 0) then
+  if (Length(Self) = 0) or (Iterations = 0) then
     Exit;
 
   B := Self.Bounds();
@@ -1173,7 +1172,7 @@ function TPointArrayHelper.Erode(Iterations: Integer): TPointArray;
         end;
     end;
     Inc(J);
-  until (J >= Iterations);
+  until (J >= Iterations-1);
 
   QueueA.Clear();
   for Y := 0 to B.Y2-1 do