Поис в BDGrid через Edit

[Asblue]

Есть процедура для поиска по автору в BDGrid1 через Edit1.

Безымянный.jpg

Но при попытке ввести в Edit1 какую-нибудь фамилию, появляется ошибка:

asd.jpg

В чём тут проблема?
И как такаю же процедуру поиска через Edit1 написать для Button1?

Вот эта процедура:

procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
with ADOQuery1 do begin
Close;
//SQL.Clear;
SQL.Add('SELECT DISTINCT id_kniga,name_kniga,avtor,stranic,izdatel,god_izdan,cena,id_postav FROM kniga');
SQL.Add('WHERE avtor LIKE'+quotedstr(Edit1.text+'%'));
SQL.Add('name_kniga');
Open;
end;
end;

Помогите пожалуйста, буду очень благодарна! )

[Прик]

SQL.Add('name_kniga'); эта строка к чему? Здесь ошибка.
Главная логическая ошибка в том, что на каждый тык в клавиатуру закрываем-открываем-перечитываем данные
Есть Locate. Этот метод и надо использовать.

[_Engine_]

Кстати, зря убрал SQL.Clear;
Очень зря

[dosha]

procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
with ADOQuery1 do begin
active:=false;
SQL.Clear;
SQL.Add('SELECT DISTINCT id_kniga,name_kniga,avtor,stranic,izdatel,god_izdan,cena,id_postav FROM kniga');
SQL.Add('WHERE avtor LIKE'+quotedstr(Edit1.text+'%'));
active:=true;
end;
end;

[Asblue]

СПАСИБОООО!!! Ура! )) dosha, Ваш код - да!