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

[@Akulina21]

Нужна помощь!Смотри внутри!
Задание:Фильтрация данных по полю "дисциплина".
Ситуация такая: база данных 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;

Подскажите где ошибка? Буду очень признательна!

[Stilet]

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