DefaultFieldClasses: array[TFieldType] of TFieldClass = ( nil, TStringField, TSmallintField, TIntegerField, TWordField, TBooleanField, TFloatField, TCurrencyField, TBCDField, TDateField, TTimeField, TDateTimeField, TBytesField, TVarBytesField, TAutoIncField, TBlobField, TMemoField, TGraphicField, TBlobField, TBlobField, TBlobField, TBlobField, nil, TStringField, TWideStringField, TLargeIntField, TADTField, TArrayField, TReferenceField, TDataSetField, TBlobField, TMemoField, TVariantField, TInterfaceField, TIDispatchField, TGuidField, TSQLTimeStampField, TFMTBcdField, TWideStringField, TWideMemoField, TSQLTimeStampField, TStringField, TLongWordField, TShortintField, TByteField, TExtendedField, nil, nil, nil );

array[TFieldType] of TFieldClass DefaultFieldClasses = ( nil, TStringField, TSmallintField, TIntegerField, TWordField, TBooleanField, TFloatField, TCurrencyField, TBCDField, TDateField, TTimeField, TDateTimeField, TBytesField, TVarBytesField, TAutoIncField, TBlobField, TMemoField, TGraphicField, TBlobField, TBlobField, TBlobField, TBlobField, nil, TStringField, TWideStringField, TLargeIntField, TADTField, TArrayField, TReferenceField, TDataSetField, TBlobField, TMemoField, TVariantField, TInterfaceField, TIDispatchField, TGuidField, TSQLTimeStampField, TFMTBcdField, TWideStringField, TWideMemoField, TSQLTimeStampField, TStringField, TLongWordField, TShortintField, TByteField, TExtendedField, nil, nil, nil );