[Toni_mac]

Доброго времени суток, прошу помощи)

Код:

procedure TfDM.TTehnikaFilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
    var
     b : String;
 begin
   b := Copy(DataSet ['Сотрудник'],1-5,Length (wd));
   Accept:= b = wd;
end;
procedure TfTehnika.Edit2Change(Sender: TObject);
begin
     if Edit2.Text<>'' then begin
      fDM.TTehnika.Filtered :=False;
       wd:= Edit2.Text;
        fDM.TTehnika.Filtered :=True
         end
          else fDM.TTehnika.Filtered := False;
procedure TfTehnika.CheckBox1Click(Sender: TObject);
begin
 if CheckBox1.Checked then begin
   fDM.TTehnika.Filter := 'Тип=''Принтер''';
    fDM.TTehnika.Filtered := True
    end
     else
      fDM.TTehnika.Filtered := False;

фильтрует по отдельности нормально, о если сделать фильтрацию по Сотрудникам и дополнительно из комбо бокса дать ещё 1 фильтрацию по принтеру и т.д то она тоже срабатывает если я убираю из эдита текст то параметры фильтрации остаются( т.е что бы я не в вбил в эдит выводит тот же результат, и как сделать что совместить фильтрацию по нажатию 2 комбобокса?