px_val

type px_val = record

  isnull: cchar;

  _type: cint;

  value: record

    case LongInt of

      0: (

          lval: clong;

        );

      1: (

          dval: Double;

        );

      2: (

          str: record

            val: Pcchar;

            len: cint;

          end;

        );

  end;

end;