var v: TVec; H: TMtx; begin CreateIt(v); CreateIt(H); try v.SetIt(False,[1,2,3,4]); H.Hankel(v); // H becomes: //[1 2 3 4] //[2 3 4 0] //[3 4 0 0] //[4 0 0 0] finally FreeIt(H); FreeIt(v); end; end;