ComboBox и фильтрация записей

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

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

  private
    procedure VoborPoisk;

procedure TForm1.VoborPoisk;
begin
 if cbbVibor.Text = '' then
 begin
   lbl2.Visible := False;
   edtSearch.Visible:= False;
 end
 else
 begin
   lbl2.Visible := true;
   edtSearch.Visible := true;
   edtSearch.SetFocus;
 end;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  VoborPoisk;
end;

procedure TForm1.cbbViborChange(Sender: TObject);
begin
  VoborPoisk;
end;

  private
    procedure SearchEdit;

procedure TForm1.SearchEdit;
begin
 if cbbVibor.Text ='Фамилия' then
  begin
   if edtSearch.Text <>'' then
     begin
       qrySpravochnik.Filter := '(Фамилия LIKE ''' + Trim(edtSearch.Text) + '%'')';
       qrySpravochnik.Filtered := True;
     end
     else
     qrySpravochnik.Filtered := False;
  end
  else
  if cbbVibor.Text ='Имя' then
  begin
   if edtSearch.Text <>'' then
     begin
       qrySpravochnik.Filter := '(Имя LIKE ''' + Trim(edtSearch.Text) + '%'')';
       qrySpravochnik.Filtered := True;
     end
     else
     qrySpravochnik.Filtered := False;
  end
  else
  if cbbVibor.Text ='Отчеств' then
  begin
   if edtSearch.Text <>'' then
     begin
       qrySpravochnik.Filter := '(Отчеств LIKE ''' + Trim(edtSearch.Text) + '%'')';
       qrySpravochnik.Filtered := True;
     end
     else
     qrySpravochnik.Filtered := False;
  end;
 
 
end;

procedure TForm1.edtSearchChange(Sender: TObject);
begin
  SearchEdit;
end;