var a,b: TOpenCLVector; c: double; begin CreateIt(a,b); try a.CopyFromArray(TDoubleArray.Create(1,2,3,4)); b.CopyFromArray(TDoubleArray.Create(4,3,2,1)); c := a.NormL1(b,True); finally FreeIt(a,b); end; end;