var a,b,c,d: TVec; begin CreateIt(a,b,c); try a.SetIt(True,[1,2,3,4]); b.SetIt(False,[8,9,6,7]); b.Complex := True; c.Mul(a,b); // = [(1+2i)*(8*9i), (3+4i)*(6+7i)] finally FreeIt(a,b,c); end; end;