var a,b: TVec; begin CreateIt(a,b); try a.SetIt(False,[1,2,3,4]); // a = [1, 2, 3, 4] b.Inv(a); // b = [1.0, 0.5, 0.3333, 0.25] finally FreeIt(a,b); end; end;