var A: TMtx; V1,V2: TVec; begin CreateIt(A); CreateIt(V1,V2); try V1.SetIt(False,[1,2,3]); V2.SetIt(False,[4,5,6]); A.Kron(V1,V2); // A becomes: // [4 5 6] // [8 10 12] // [12 15 18] finally FreeIt(A); FreeIt(V1,V2); end; end;