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

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