var A,B,C,D,E: TMtx; begin CreateIt(A,B,C,D); CreateIt(E); try A.Size(2,2); B.Size(A); C.Size(A); D.Size(A); E.Concat(2,2,[A,B C,D]); // form one 4x4 matrix finally FreeIt(E); FreeIt(A,B,C,D); end; end;