Поиск ADO

[Leksan]

Есть кнопка поиска:
Var
a:Char;
begin
a:=#39;
ADOQuery1.Active:=False;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM Каталог_книг');
ADOQuery1.SQL.Add('WHERE Регистрационный_№ like' + a + '%' + Edit1.Text + '%' + a);
ADOQuery1.SQL.Add('and Автор like' + a + '%' + Edit2.Text + '%' + a);
ADOQuery1.SQL.Add('and Название like' + a + '%' + Edit3.Text + '%' + a);
ADOQuery1.Active:=True ;

и кнопка очистить:
Edit1.Text:=' ';
Edit2.Text:=' ';
Edit3.Text:=' ';
ADOQuery1.SQL.Clear;

Проблема в том, что после очистки не выполняется поиск. Как повторить процесс поиска

[vovk]

нажать на кнопку поиска?

[rdama]

Повторно! А еще почитайте о запросах с параметрами.