var a,b: TOpenCLVector; begin CreateIt(a,b); try a.CopyFromArray(TSingleArray.Create(1,2,3,4)); // a = [1, 2, 3, 4] b.Inv(a); // b = [1.0, 0.5, 0.3333, 0.25] finally FreeIt(a,b); end; end;