ClassTMtx
var A: TMtx; b: TSample; begin CreateIt(A); try A.SetIt(2,2,false,[1,2, 2,4]); // 2x2, not complex matrix b := A.Norm1; finally FreeIt(A); end; end;