求助，Delphi中数据字段类型同原生ADO中字段类型的对应关系

Delphi中类型如下：
ftUnknown, ftString, ftSmallint, ftInteger, ftWord, ftBoolean, ftFloat, ftCurrency, ftBCD, ftDate, ftTime, ftDateTime, ftBytes, ftVarBytes, ftAutoInc, ftBlob, ftMemo, ftGraphic, ftFmtMemo, ftParadoxOle, ftDBaseOle, ftTypedBinary, ftCursor, ftFixedChar, ftWideString, ftLargeint, ftADT, ftArray, ftReference, ftDataSet, ftOraBlob, ftOraClob, ftVariant, ftInterface, ftIDispatch, ftGuid, ftTimeStamp, ftFMTBcd
原生ADO中类型如下：
adEmpty,adTinyInt,adSmallInt,adInteger,adBigInt,adUnsignedTinyInt,adUnsignedSmallInt,adUnsignedInt,adUnsignedBigInt,adSingle,adDouble,adCurrency,adDecimal,adNumeric,adBoolean,adError,adUserDefined,adVariant,adIDispatch,adIUnknown,adGUID,adDate,adDBDate,adDBTime,adDBTimeStamp,adBSTR,adChar,adVarChar,adLongVarChar,adWChar,adVarWChar,adLongVarWChar,adBinary,adVarBinary,adLongVarBinary,adChapter,adFileTime,adPropVariant,adVarNumeric