var a,b: TVec; begin CreateIt(a,b); 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;