function StrToFld(const Value : String) : TFieldType;
begin
   if Value = 'Unknown' then
      StrToFld := ftUnknown
   else if Value = 'String' then
      StrToFld := ftString
   else if Value = 'Smallint' then
      StrToFld := ftSmallInt
   else if Value = 'Integer' then
      StrToFld := ftInteger
   else if Value = 'Word' then
      StrToFld := ftWord
   else if Value = 'Boolean' then
      StrToFld := ftBoolean
   else if Value = 'Float' then
      StrToFld := ftFloat
   else if Value = 'Currency' then
      StrToFld := ftCurrency
   else if Value = 'BCD' then
      StrToFld := ftBCD
   else if Value = 'Date' then
      StrToFld := ftDate
   else if Value = 'Time' then
      StrToFld := ftTime
   else if Value = 'DateTime' then
      StrToFld := ftDateTime
   else if Value = 'Bytes' then
      StrToFld := ftBytes
   else if Value = 'VarBytes' then
      StrToFld := ftVarBytes
   else if Value = 'AutoInc' then
      StrToFld := ftAutoInc
   else if Value = 'Blob' then
      StrToFld := ftBlob
   else if Value = 'Memo' then
      StrToFld := ftMemo
   else if Value = 'Graphic' then
      StrToFld := ftGraphic
   else if Value = 'FmtMemo' then
      StrToFld := ftFmtMemo
   else if Value = 'ParadoxOle' then
      StrToFld := ftParadoxOle
   else if Value = 'DBaseOle' then
      StrToFld := ftDBaseOle
   else if Value = 'TypedBinary' then
      StrToFld := ftTypedBinary
   else if Value = 'Cursor' then
      StrToFld := ftCursor
   else if Value = 'FixedChar' then
      StrToFld := ftFixedChar
   else if Value = 'WideString' then
      StrToFld := ftWideString
   else if Value = 'LargeInt' then
      StrToFld := ftLargeInt
   else if Value = 'ADT' then
      StrToFld := ftADT
   else if Value = 'Array' then
      StrToFld := ftArray
   else if Value = 'Reference' then
      StrToFld := ftReference
   else if Value = 'DataSet' then
      StrToFld := ftDataSet
   else if Value = 'OraBlob' then
      StrToFld := ftOraBlob
   else if Value = 'OraClob' then
      StrToFld := ftOraClob
   else if Value = 'Variant' then
      StrToFld := ftVariant
   else if Value = 'Interface' then
      StrToFld := ftInterface
   else if Value = 'IDispatch' then
      StrToFld := ftIDispatch
   else if Value = 'GUID' then
      StrToFld := ftGuid
   else if Value = 'TimeStamp' then
      StrToFld := ftTimeStamp
   else if Value = 'FMTBcd' then
      StrToFld := ftFMTBcd
   else
      StrToFld := ftUnknown;
end;