Фильтрация данных в delphi7

Нужна помощь!Смотри внутри! Задание:Фильтрация данных по полю "дисциплина". Ситуация такая: база данных Paradox, на форме классическая связка DBGrid1, DataSource1, Table1, также Combobox1 - содержит список полей таблицы. Фильтрация таблицы происходит следующим образом: пользователь выбирает в Combobox1 запись по которой в DBGrid1 будет произведена фильтрация. Вот часть кода: procedure TFMain.DBCChange(Sender: TObject); var b:string; k,i: integer; Sht: variant; begin Case DBC.ItemIndex of 0:b:='Делопроизводство'; 1:b:='Дискретная математика'; 2:b:='Информационные технологии'; 3:b:='Психология'; end; table1.FilterOptions:=[foCaseinsensitive]; //table1.Filter:='DisName='+b; table1.Filtered:=true; For i:=1 to Table1.RecordCount do //while table1 not Eof begin if table1.FieldByName('DisName').AsStr ing<>b then table1.Delete; end;Подскажите где ошибка? Буду очень признательна!
1 ответ

table1.Filter:='DisName='+QuotedStr(b);