TComplex = packed record
  form: TComplexForm;
  case TComplexForm of
    Polar: (r: float;
            theta: float;);
    Rectangular: (im: float;
                  re: float;);
  end;

CommonTypes

This is record CommonTypes.TComplex.