TVarData = record
  Reserved1: uint16_t;
  Reserved2: uint16_t;
  Reserved3: uint16_t;
end;

struct TVarData {
  union {
    uint16_t VType;
  };
  uint16_t Reserved1;
  uint16_t Reserved2;
  uint16_t Reserved3;
  union {
    Smallint VSmallint;
    Integer VInteger;
    Single VSingle;
    Double VDouble;
    CurrencyBase VCurrency;
    TDateTimeBase VDate;
    PWideChar VOleStr;
    IDispatch* VDispatch;
    HResult VError;
    WordBool VBoolean;
    IUnknown* VUnknown;
    Byte VByte;
    Shortint VShortint;
    Shortint VShortInt;
    Pointer VString;
    PVarArray VArray;
    Pointer VPointer;
    __int64 VInt64;
    Word VWord;
    LongWord VLongWord;
  };
};