var a: TOpenCLVector; begin CreateIt(a); try a.CopyFromArray(TSingleArray.Create(1,-2,3,4)); // a = [1,-2, 3,4] a.Mag; // a = [1, 2, 3,4] finally FreeIt(a); end; end;