Как связать 2 фильтра (BD firebird gdb, начинающий)?

procedure TForm1.Button1Click(Sender: TObject);
var myD1,myD2:String;
begin
myD1:=DateToStr(DateTimePicker1.DateTime);
myD2:=DateToStr(DateTimePicker2.DateTime);
IBTable1.Filtered:=True;
IBTable1.Filter:='Datavid>='+QuotedStr(myD1)+ 'and Datavid<='+QuotedStr(myD2);
IBTable1.Last; //сперва взять последнюю запись, а затем ваш код
IBTable1.First;
Edit1.Text:=inttostr(IBTable1.RecordCount);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
ComboBox6.Items.LoadFromFile('PR\ДН.txt');
ComboBox6.ItemIndex := ComboBox6.Items.IndexOf(Combobox6.Text);
ComboBox7.Items.LoadFromFile('PR\Служба.txt');
ComboBox7.ItemIndex := ComboBox7.Items.IndexOf(Combobox7.Text);
SetFilter;
IBTable1.Last; //сперва взять последнюю запись, а затем ваш код
IBTable1.First;
Edit1.Text:=inttostr(IBTable1.RecordCount);
end;

procedure TForm1.SetFilter;
var
  f: string;
begin
  IBTable1.Filtered:=false;
  f := '';
  if Combobox6.Text <> '' then f := f + 'dnvid LIKE '+ #39 + Combobox6.Text + '%' + #39 + ' AND ';
  if Combobox7.Text <> '' then f := f + 'slugvid LIKE '+ #39 + Combobox7.Text + '%' + #39 + ' AND ';
  SetLength(f, Length(f) - 5);
  IBTable1.Filter:=f;
  if f <> '' then
    IBTable1.Filtered:=true;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.IBTable1.Active := true;
ComboBox6.Items.LoadFromFile('PR\ДН.txt');
ComboBox7.Items.LoadFromFile('PR\Служба.txt');
end;

IBQuery1.ParamByName('Param1').AsString:=Combobox1.text+'%';

procedure TForm1.Button1Click(Sender: TObject);
begin
IBQuery1.SQL.Text:='SELECT * FROM OTKAZ_VID WHERE Datavid BETWEEN :date1 AND :date2  AND stancvid LIKE :param1';
IBQuery1.ParamByName('Date1').AsDatetime:=DateTimePicker1.Date;
IBQuery1.ParamByName('Date2').AsDatetime:=DateTimePicker2.Date;
IBQuery1.ParamByName('Param1').AsString:=Combobox1.text + '%';
IBQuery1.Open;
IBQuery1.FetchAll;
Edit1.Text:=inttostr(IBQuery1.RecordCount);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
IBQuery1.SQL.Text:='SELECT  count(*) as C FROM OTKAZ_VID WHERE Datavid BETWEEN :date1 AND :date2  AND stancvid LIKE :param1';
IBQuery1.ParamByName('Date1').AsDatetime:=DateTimePicker1.Date;
IBQuery1.ParamByName('Date2').AsDatetime:=DateTimePicker2.Date;
IBQuery1.ParamByName('Param1').AsString:=Combobox1.text + '%';
IBQuery1.Open;
Edit1.Text:=IBQuery1.FieldByName('C').Astring;
end;