var a,b,c: TVec; begin CreateIt(a,b,c); try a.SetIt(True,[1,2,3,4]); // a = [1,2,3,4] b.Copy(a, mvSingle); // convert to single precision finally FreeIt(a,b,c); end; end;