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