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