var A,B,C,D,E: TMtxInt; begin CreateIt(A,B,C,D); CreateIt(E); try A.Size(2,2); B.Size(A); C.Size(A); D.Size(A); E.SetIt(4,4,[1,2,3,4 5,6,7,8 9,1,2,3 4,5,6,7]); E.Split(2,2,[A,B, C,D]); // A becomes: // [1,2, // 5,6] // B becomes: // [3,4, // 7,8] // C becomes: // [9,1, // 4,5] // D becomes: // [2,3, // 6,7] finally FreeIt(A,B,C,D); FreeIt(E); end; end;