Ошибка в фильтрации

[shifu]

Имеется программа через адо, таблицы c помощью DBGridEh.
написал следующий код для фильтрации:

var i: Byte;
sFilter: String;
begin
if ComboBox1.Text = 'Выберите поле' then
begin
MessageBox(Handle, 'Выберите название поля из списка!', 'Предупреждение', MB_OK + MB_ICONWARNING);
Exit;
end;

for i:= 0 to ListBox1.Items.Count - 1 do
if i = ListBox1.Items.Count - 1 then
sFilter:= sFilter + QuotedStr(ListBox1.Items[i])
else sFilter:= sFilter + QuotedStr(ListBox1.Items[i]) + ' and ';

TDBGridEh(SelControl).DataSource.Da taSet.Filter:= sFilter;
TDBGridEh(SelControl).DataSource.Da taSet.Filtered:= True;
end;

при нажатии на кнопку фильтровать выводит ошибку "Аргументы имеют неверный тип..."
Не могу понять почему так

[shifu]

по ходу мне ни кто не поможет(((