Нужна помощь по Delphi 7

[enikeu]

Не могу никак сделать поиск в программе, потерял исходники готового поиска, а у самого чето еще ума не хватает :-)

Суть в том, что надо в поле Edit1 вписать текст, нажать на кнопочку (в которой должна быть прописана вся процедура поиска) и вывести результат в таблице через DBGrid1

Поиск ведется из таблицы сделанной в MS Access и связанной с программной через компнонент ADOQuery

вот как это примерно выглядеть должно...

procedure TForm4.Button2Click(Sender: TObject);
var sql:string;
begin
sql:='';
ADOQuery1.Active:=false;
if Edit1.text<>'' then sql:='a.Название like "'+Edit1.text+'%"';
if (sql<>'') then sql:='where '+sql;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from Games a '+sql);
ADOQuery1.Active:=true;
end;

помоги мне