644            TryDo(RopePoints.Count <= MAXROPEPOINTS, 'Rope points overflow', true);

   644            TryDo(RopePoints.Count <= MAXROPEPOINTS, 'Rope points overflow', true);

   645            Gear^.Elasticity:= Gear^.Elasticity - len;

   645            Gear^.Elasticity:= Gear^.Elasticity - len;

   646            Gear^.Friction:= Gear^.Friction - len;

   646            Gear^.Friction:= Gear^.Friction - len;

   647            break

   647            break

   648            end;

   648            end;

   650          end;

   650          end;

   651    end else

   651    end else

   652    if RopePoints.Count > 0 then // check whether the last dividing point could be removed

   652    if RopePoints.Count > 0 then // check whether the last dividing point could be removed

   653       begin

   653       begin

   654       tx:= RopePoints.ar[Pred(RopePoints.Count)].X;

   654       tx:= RopePoints.ar[Pred(RopePoints.Count)].X;