var a,b,c: TVec; begin CreateIt(a,b,c); try a.SetIt(false,[1,2,3,4]); // a = [1,2,3, 4] //magnitude b.SetIt(false,[1,0,1,-1]); // b = [1,0,1,-1] /phase c.PolarToCart(a,b); // result stored in c = projections to Re and Im axis finally FreeIt(a,b,c); end; end;