Variant

   varEmpty = 0;
   varNull = 1;
   varSmallInt = 2;
   varInteger = 3;
   varSingle = 4;
   varDouble = 5;
   varDate = 7;
   varCurrency = 6;
   varOleStr = 8;
   varDispatch = 9;
   varError = 10;
   varBoolean = 11;
   varVariant = 12;
   varUnknown = 13;
   varDecimal = 14;
   varShortInt = 16;
   varByte = 17;
   varWord = 18;
   varLongWord = 19;
   varInt64 = 20;
   varQWord = 21;
   varRecord = 36;
   { Compiler-specific variant types (not known to COM) are kept in
    'pseudo-custom' range of $100-$10E. Real custom types start with $10F. }
   varString = $100;
   varAny = $101;
   varUString = $102;
   varTypeMask = $fff;
   varArray = $2000;
   varByRef = $4000;