uses MtxVecInt; procedure Example; var a,b: TMtxVecInt; begin a := TMtxVecInt.Create(); b := TMtxVecInt.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;