Example 1

      var a,b: TVec;
      begin
          CreateIt(a,b,c,d);
          try
              a.SetIt(false, [1,2,3,4,5,6,7,8,9]);
              a.SetSubRange(0,2);  //a = [1,2]
              a.DisableSubrange;
              a.SetSubRange(2,2); //exception raised here

              b.SetSubRange(a,2,2); //but this will work
              a.SetFullRange; //b is not changed, it still points to [4,5]

          finally
              FreeIt(a,b);
          end;
      end;