FieldTypeVarMap: array[TFieldType] of Word = ( varEmpty, varString, varInteger, varInteger, varInteger, varBoolean, varDouble, varCurrency, varCurrency, varDate, varDate, varDate, varEmpty, varEmpty, varInteger, varEmpty, varString, varEmpty, varEmpty, varEmpty, varEmpty, varEmpty, varEmpty, varString, varOleStr, varEmpty, varEmpty, varEmpty, varEmpty, varEmpty, varEmpty, varEmpty, varVariant, varUnknown, varDispatch, varString, varEmpty, varEmpty, varOleStr, varOleStr, varEmpty, varString);

array[TFieldType] of Word FieldTypeVarMap = ( varEmpty, varString, varInteger, varInteger, varInteger, varBoolean, varDouble, varCurrency, varCurrency, varDate, varDate, varDate, varEmpty, varEmpty, varInteger, varEmpty, varString, varEmpty, varEmpty, varEmpty, varEmpty, varEmpty, varEmpty, varString, varOleStr, varEmpty, varEmpty, varEmpty, varEmpty, varEmpty, varEmpty, varEmpty, varVariant, varUnknown, varDispatch, varString, varEmpty, varEmpty, varOleStr, varOleStr, varEmpty, varString);