var a,b,c: TVec; begin CreateIt(a,b,c); try a.CopyCplxFromArray(TSingleArray.Create(1,2,3,4)); b.CopyCplxFromArray(TSingleArray.Create(4,3,2,1)); c.ConjMul(a,b); finally FreeIt(a,b,c); end; end;