var a,b,c,d: TVec; begin CreateIt(a,b,c,d); try a.SetIt(False,[1,2,3]); b.Copy(a); c.Concat([a,b]); // c = [1,2,3,1,2,3] d.Size(10,True); d.SetZero(0,4); d.Concat(4,[c]); // d = [0,0,0,0,1,2,3,1,2,3] finally FreeIt(a,b,c,d); end; end;