var a: TOpenCLVector; ind: Integer; begin a := TOpenCLVector.Create; try a.CopyFromArray(TSingleArray.Create(1,5.5,-1.6,6)); // a = [1, 5.5, -1.6, 6] a.Frac; // a = [0, 0.5, -0.6, 0] finally a.Free; end; end;