var a,b: TVec; begin CreateIt(a,b); try a.SetIt(False,[1,2,3,4]); b.FFT(a); a.FFT; // a = [(10, 0),( -2,2), (-2, 0), (-2,-2)] if not a.Equal(b) then ERaise('Not equal'); finally FreeIt(a,b); end; end;