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