Поиск по базе при помощи компонента AdoQuery

  ADOQuery.active := false;
  ADOQuery.SQL.Add((*тут любой SQL запрос из например выбрать все записи из таблицы 
с именем Table*)'select * from Table');
  ADOQuery.active := true;
  //далле необходимо сделать фильтр который будет набираться в Edit1
  Edit1.text := 'Field1='+#39+'Один'+#39; (* если поле Field1 типа стринг, то параметр значения 
  поля которое нужно выбрать должно быть взято в кавычки. В данном случа #39=' *)
  ADOQuery.Filter := Edit1.text; 
  ADOQuery.Filtered := true;
  //после этого в датасете ADOQuery остануться только записи удовлетворяющие фильтру

ADOQuery1.Sql.Clear;
ADOQuery1.Sql.Add('SELECT * FROM TableName WHERE FindField = :FindValue');
ADOQuery1.Parameters.ParamByName('FindValue').Value := Edit1.Text;
ADOQuery1.Open;

adoquery.active := False;
adoquery.sql.clear;
adoquery.sql.add('SELECT *');
adoquery.sql.add('FROM tablename');
adoquery.sql.add('WHERE LIKE = '+#39+edit.text+'%'+#39);
adoquery.active := true;

...
ADOQuery.Sql.Add('WHERE FindField LIKE '+#39+Edit.Text+'%'+#39);
ADOQuery.Open;
...

if SearchKlientEdit.Text='' then begin
DataM.qryKlient.SQL.Clear;
DataM.qryKlient.SQL.Add(stdKlient);
DataM.qryKlient.Open;
end else begin
DataM.qryKlient.SQL.Clear;
DataM.qryKlient.SQL.Add('Select * from tblKlient WHERE ' + tmpSelIndex + ' LIKE :pText');
DataM.qryKlient.Parameters.ParamByName('pText').Value:=SearchKlientEdit.Text+'%';
DataM.qryKlient.Open;
end;

Поиск   (Аdoquery)
procedure TForm1.Edit1Change(Sender: TObject);
begin
Adoquery1.SQL.Clear ;
Adoquery1.SQL.Add('Select * from Имя таблица);
Adoquery1.SQL.Add('Where Фамилия like '''+'%'+'''+'''+edit1.text+'''+'''+'%'+'''');
Adoquery1.Active :=true;