TValueKind = (
  vSByte,
  vUByte,
  vSWord,
  vUWord,
  vSLong,
  vULong,
  vS64,
  vU64,
  vSingle,
  vDouble,
  vExtended,
  vComp,
  vCurr,
  vAChar,
  vWChar,
  vString,
  vBinary,
  vNull
);