var a,b: TOpenCLVector; begin CreateIt(a,b); try a.CopyCplxFromArray(TSingleArray.Create(1,2,3,-4)); // a = [1 + 2i, 3 - 4i] b.PowerSpectrum(a); // b = [1*1 + 2*2, 3*3+(-4)*(-4)] finally FreeIt(a,b); end; end;