Добавить поле в таблицу
function AddField(TableName, FieldName, FieldIndex: string;
ftType: TDbaFieldType; fLen: integer;
flUnsigned, flIndexUnique, flNotNull: boolean;
fDefaultIdent: TDefaultIdent = diNotSet; fDefault: string = '';
AfterField: string = ''; aFieldList: TDbaFieldList = nil): integer; overload;