ClassTMtxVec
var a,b,c: TVec; begin CreateIt(a,b,c); try a.SetIt(True,[1,2,3,4]); b.SetIt(True,[3,3,2,2]); c.PowerVec(a,b); // c = [1,8,9,16] finally FreeIt(a,b,c); end; end;