var a,b: TVec; prod: double; begin CreateIt(a,b); try a.SetIt(False,[1,2,3,4]); b.SetIt(False,[5,6,7,8]); prod := a.DotProd(b); // = 1*5 + 2*6 + * 3*7 + 4*8 finally FreeIt(a,b); end; end;