Удалить поля из таблицы по списку
function DropFields(TableName: string; aFields: TStrings): integer;
TableName
Fields
0, если выполнено успешно, иначе < 0