Проблема с фильтром

[nervniy]

if Length (Edit1.Text)>0 then
DataModule10.AdoTable2.Filtered:=true
else
 DataModule10.AdoTable2.Filtered:=false;
DataModule10.ADOTable2.filter:='[имя_столбца] LIKE '+ #39 + '%' + Edit1.Text + '%' + #39;
 end;

Первый раз фильтрует нормально,но если тут же очистить Edit и попытаться ввести новые данные вылазиет ошибка:
"Аргументы имеют неверный тип,выходят за пределы допустимого диапазона или вступают в конфликт друг с другом"
Что неправильно в коде?как его поправить чтоб нормально работало??

[GoodDA]

попробуй так

DataModule10.AdoTable2.Filtered:=false;
DataModule10.ADOTable2.filter:='[имя_столбца] LIKE '+ #39 + '%' + Edit1.Text + '%' + #39;

if Length (Edit1.Text)>0 then
DataModule10.AdoTable2.Filtered:=true
else
 DataModule10.AdoTable2.Filtered:=false;

[nervniy]

begin
if Length (Edit1.Text)>0 then
begin
 DataModule10.AdoTable2.Filtered:=false;
 DataModule10.ADOTable2.filter:='[id_diacolor] LIKE '+ #39 + '%' + Edit1.Text + '%' + #39;
 DataModule10.AdoTable2.Filtered:=true;
 end
 else DataModule10.ADOTable2.Filtered:=false;
 end;

Сделал так,вроде нормально работает

[darknezz]

А что означают "#39" и "%"???

[darknezz]

Я вот так делал и работает всё без проблем, только одна проблема обязательно необходимо сортировку этого столбца сделать
if Length (Edit1.Text)>0 then
DataModule10.AdoTable2.Filtered:=tr ue
else
DataModule10.AdoTable2.Filtered:=fa lse;
DataModule10.ADOTable2.filter:='имя _столбца>''+ Edit1.Text+'''