а фильтр почему бы не применить?

if trim(edFind.Text) <> '' then
begin
Employees.Filtered:=False;
Employees.Filter := 'SURNAME LIKE '+QuotedStr('%'+trim(edFind.Text)+'%');
Employees.Filtered:=True;
end;

а интересно как сделал то? покажи хоть кусок кода?

надо же этот кусок на TEdit OnChange повесить

все должно работать на 100%
(у меня MS SQL2000)

блин, классический вариант с BDE
========================================
procedure TForm1.dsWellsDataChange(Sender: TObject; Field: TField);
var
mywell:String;
begin
// фильтрация образцов в зависимости от выбора скважины
if not dsWells.DataSet.FieldByName('W_Name').IsNull then
begin
mywell:= dsWells.DataSet.FieldValues['W_Name'];
Samples.Filtered:= False;
Samples.Filter := 'W_Name = '+QuotedStr(mywell);
Samples.Filtered:= True;
end;
end;

тут в примере dsWells это датасурс датасета, отвечающего за список скважин

но можно TEdit ввести, и в TEdit вводить символы и в Samples будет показывать те образцы, которые по скважине похожи на подстроку введенную в TEdit

Samples.Filter := 'W_Name = '+QuotedStr(mywell);

поиграй с синтаксисом самого фильтра, у меня тоже не сразу получилось как я хотел

Filter := 'SURNAME LIKE '+QuotedStr('%'+trim(edFind.Text)+'%');

1) введи принудительно в Filter в инспекторе несколько символов - проверь

2) выведи на Label.Caption что у тебя получается в качестве строки фильтра - проверь

на Label всегда выводи что у тебя получается.
либо в отладчике смотри какая строка фильтра получается
поиграй с кавычками.