var A,B,C,D,E: TMtxInt; begin CreateIt(A,B,C,D); CreateIt(E); try A.Size(1,2); B.Size(A); E.Size(4,4); // overwrite the lower part of the E matrix // with values from A and B E.ConcatVert(2,2,[A,B]); // E becomes: //[E11 E12 E13 E14] //[E21 E22 E23 E24] //[A11 A12 E33 E34] //[B11 B12 E43 E44] finally FreeIt(E); FreeIt(A,B,C,D); end; end;