procedure Add(const Name: String; DataType: TFieldType; Size: Integer=0; Required: Boolean=False; const DefaultValue: String=''; const MinValue: String=''; const MaxValue: String=''; const Description: String=''; CharCase: TFieldCharCase=fcNoChange; Compression: Byte=NO_COMPRESSION) procedure Add(FieldNo: Integer; const Name: String; DataType: TFieldType; Size: Integer=0; Required: Boolean=False; const DefaultValue: String=''; const MinValue: String=''; const MaxValue: String=''; const Description: String=''; CharCase: TFieldCharCase=fcNoChange; Compression: Byte=NO_COMPRESSION)