uses MtxVecInt; procedure Example; var a,b: TVecInt; begin a := TVecInt.Create(); b := TVecInt.Create(); try a.SetIt([1,2,3,4]); // a = [1,2,3,4] b.Copy(a); // b = [1,2,3,4] finally a.Free; b.Free; end; end;