var a,b,c: TVec; begin CreateIt(a,b,c); try a.SetIt(False,[1,2,3,4]); b.SetIt(False,[1,2,3,4]); c.Kron(a,b); // c = [1,2,3,4, 2,4,6,8, 3,6,9,12, 4,8,12,16] finally FreeIt(a,b,c); end; end;