求救：如何实现模糊查询？(100分)

我想在EDIT里输入一个字，就立即可以看到结果。我用了LOCATE、FILTER两个方法，但有时会出错，请问哪位高手有好的例程源码提供，感激不尽！

procedure TForm12.Edit10Change(Sender: TObject);
begin
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('select * from Herbalist');
Query1.SQL.Add('where 药品名称 like ''%'+Edit10.Text+'%''');
Query1.Open;
end;

谢谢，我先试一下，如果不行，可能还要麻烦你一下，