var a: TOpenCLVector; begin CreateIt(a); try a.CopyCplxFromArray(TSingleArray.Create(2,0.1,3,4)); a.Threshtop(0.2); // a = [0.2,0.1,0.2,0.2] finally FreeIt(a); end; end;