var a: TOpenCLVector; begin CreateIt(a); try a.CopyFromArray(TSingleArray.Create(10,100,1000,10000)); // a = [10,100,1000,10000] a.Log10; // a = [1,2,3,4] finally FreeIt(a); end; end;