Uses MtxVecInt; procedure Example; var a: TVecInt; begin CreateIt(a); try a.SetIt([1,2,3,4]); a.SetVal(5,2,2); // a = [1,1,5,5] finally FreeIt(a); end end;