var a,b: TOpenCLVector; prod: double; begin CreateIt(a,b); try a.CopyFromAray(TDoubleArray.Create(1,2,3,4)); b.CopyFromAray(TDoubleArray.Create(5,6,7,8)); prod := a.DotProd(b); // = 1*5 + 2*6 + * 3*7 + 4*8 finally FreeIt(a,b); end; end;