var a,b: TVec; begin CreateIt(a,b); try a.SetIt(True,[1,2,3,4]); // = [1+2i, 3+4i] b.RealPart(a); // b = [1,3] finally FreeIt(a,b); end; end;