Поисковик в Grid

var
  fDM: TfDM;
  ed: String; //текст из Edit1

{onFilterRecord главной таблицы}
procedure TfDM.TLichDataFilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
var
  s : String; //для значения поля
begin
  //получаем столько начальных букв из поля Фамилия,
  //сколько букв имеется в переменной ed:
  s := Copy(DataSet['Фамилия'], 1, Length(ed));
  //делаем проверку на совпадение значений:
  Accept := s = ed;
end;

{Изменение поиска по фамилии}
procedure TfMain.Edit1Change(Sender: TObject);
begin
  //если в поле Edit1 есть хоть одна буква,
  if Edit1.Text <> '' then begin
    fDM.TLichData.Filtered := False; //отключаем фильтр
    ed := Edit1.Text; //передаем в fDM новый текст
    fDM.TLichData.Filtered := True; //включаем фильтр
  end
  //если букв нет, фильтрацию отключаем:
  else fDM.TLichData.Filtered := False;
end;

procedure TForm1.Button1Click(Sender: TObject);
// НАЧАЛО ПОИСКА
var
Familya:string; 
b1:boolean;
begin
b1:=true;
     Familya:=Edit1.Text;
      if (Edit1.Text<>'') then
      begin
      b1:=adoTable.Locate('UserName;Otdel',
      VarArrayOf([Familya,Otdel]),
      [loCaseInsensitive,loPartialKey]);
      end;
      if b1=false then
      MessageDlg('По запросу ничего не найдено.'+#13, mtInformation,[mbOK],0)
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i1,k:integer;
begin
    adoQuery.SQL.Clear;
    adoQuery.SQL.Add('SELECT * FROM ТАБЛИЦА WHERE ПОЛЕ_ПО_КОТОРОМУ_ИЩЕШЬ LIKE "%'+Edit1.Text+'%"');     //поиск по любому совпадению, если на до по начальным буквам-после Like пишешь "%'+Edit1.Text+', если по конечным-+Edit1.Text+'%"', если по полному полю-+Edit1.Text+'
    adoQuery.Open;
    adoQuery.First;
    for k:=1 to adoQuery.RecordCount do
     begin
      i1:=adoQuery.Fields.Fields[0].Value;    //0-означает 1 поле по которому поиск происходит, т.е. 1 поле в твоей таблице. в данному случае оно ключевое
      b1:=adoTable.Locate('КЛЮЧЕВОЕ_ПОЛЕ',i1,
      [loCaseInsensitive,loPartialKey]);
     end;
    end;

procedure TForm1.Button1Click(Sender: TObject);
var
 
S1: string; // выражение фильтрации
      begin
       S1:=''; // выражение фильтрации
      if (Edit1.Text<>'') then
      S1:=S1+'ИМЯ_ПОЛЯ LIKE ' + #39 + '%' + Edit1.Text + '%' + #39;
      adoTable.Filter:=S1;
      adoTable.Filtered:=true; // запуск фильтрации
      if adoTable.RecordCount=0 then
      MessageDlg('Ничего не найдено'+#13, mtInformation,[mbOK],0)
    end;