FieldTypeToStr

uses
  TypInfo, DB;

Function fn_FieldTypeToStr(Value: TFieldType): String;
Begin
  try
    Result := GetEnumName(TypeInfo(TFieldType), Integer(Value));
  except
    Result := '';
  end;
end;