var a,b,c: TVec; begin CreateIt(a,b,c); try a.SetIt(True,[1,2,3,4]); b.Copy(a); c.Copy(a,b); //concatenate a and b and store in c // c = [1,2,3,4,1,2,3,4] finally FreeIt(a,b,c); end; end;