Фильтрация

procedure TFormEdit.BitBtn1Click(Sender: TObject);
begin
   case StrToIntDef(Label1.Caption,0) of
      1,2: begin
              if StrToIntDef(Label1.Caption,0)=1 then DataModule1.ADOCountry.Insert
              else DataModule1.ADOCountry.Edit;
              DataModule1.ADOCountry.FieldByName('Name_c').AsString:=Edit1.Text;
              DataModule1.ADOCountry.Post;
           end;
      3,4: begin
            if StrToIntDef(Label1.Caption,0)=1 then DataModule1.ADOAirport.Insert
              else DataModule1.ADOAirport.Edit;
              DataModule1.ADOAirport.FieldByName('Name_p').AsString:=Edit2.Text;
              DataModule1.ADOAirport.Post;
 
           end;

  with Form1 do begin
    adoquery1.Close;
    adoQuery1.SQL.clear;
   adoquery1.SQL.add('select * from Таблица1 where (Таблица1.Страна) LIKE "'+ form1.combobox1.text+'%"');
   adoquery1.SQL.Add('and Таблица1.город LIKE "'+combobox2.Text+'%"');
   adoquery1.SQL.Add('and Таблица1.Отель LIKE "'+combobox3.Text+'%"');
   adoquery1.SQL.Add('and Таблица1.Звезды LIKE "'+combobox4.Text+'%"');
   adoquery1.Open;

procedure TForm1.Button1Click(Sender: TObject);
begin
  adoquery1.Close;
    adoQuery1.SQL.clear;
   adoquery1.SQL.add('select * from Таблица1 where (Таблица1.Страна) LIKE "'+ form1.combobox1.text+'%"');
   adoquery1.SQL.Add('and Таблица1.Город LIKE "'+combobox2.Text+'%"');
   adoquery1.SQL.Add('and Таблица1.Отель LIKE "'+combobox3.Text+'%"');
  adoquery1.SQL.Add('and Таблица1.Звезды LIKE "'+combobox7.Text+'%"');
    adoquery1.SQL.Add('and Таблица1.Питание LIKE "'+combobox8.Text+'%"');
     adoquery1.SQL.Add('and Таблица1.Авиокомпания LIKE "'+combobox4.Text+'%"');
     adoquery1.SQL.Add('and Таблица1.Аэропорт LIKE "'+combobox5.Text+'%"');
   adoquery1.Open;
   ADOQuery1.Active:=false;
ADOQuery1.Active:=true;
 
 
end;
 
end.

...
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from Таблица1 where (Таблица1.Страна) LIKE "'+ form1.ComboBox1.text+'%"');
if ComboBox2.ItemIndex>0 then ADOQuery1.SQL.Add('and Таблица1.Город LIKE "'+ComboBox2.Text+'%"');
...

...
ADOQuery1.SQL.Add('and Таблица1.[Поле с ценой] between :p1 and :p2');
ADOQuery1.Parameters.Refresh;
ADOQuery1.Parameters[0].Value:=//подставляете значения типа real
ADOQuery1.Parameters[1].Value:=//подставляете значения типа real
ADOQuery1.Open;
...

with Form1 do begin
  adoquery1.Close;
    adoQuery1.SQL.clear;
   adoquery1.SQL.add('select * from Таблица1 where (Таблица1.Страна) LIKE "'+ form1.combobox1.text+'%"');
 if ComboBox2.ItemIndex>0 then ADOQuery1.SQL.Add('and Таблица1.Город LIKE "'+ComboBox2.Text+'%"');
if ComboBox2.ItemIndex>0 then ADOQuery1.SQL.Add('and Таблица1.Отель LIKE "'+ComboBox2.Text+'%"');
 if ComboBox2.ItemIndex>0 then ADOQuery1.SQL.Add('and Таблица1.Звезды LIKE "'+ComboBox2.Text+'%"');;
if ComboBox2.ItemIndex>0 then ADOQuery1.SQL.Add('and Таблица1.Питание LIKE "'+ComboBox2.Text+'%"');
if ComboBox2.ItemIndex>0 then ADOQuery1.SQL.Add('and Таблица1.Авиокомпания LIKE "'+ComboBox2.Text+'%"');
if ComboBox2.ItemIndex>0 then ADOQuery1.SQL.Add('and Таблица1.Аэропорт LIKE "'+ComboBox2.Text+'%"');
   adoquery1.Open;
   ADOQuery1.Active:=false;
ADOQuery1.Active:=true;

with Form1 do begin
  adoquery1.Close;
    adoQuery1.SQL.clear;
   adoquery1.SQL.add('select * from Таблица1 where (Таблица1.Страна) LIKE "'+ form1.combobox1.text+'%"');
 if ComboBox2.ItemIndex>0 then ADOQuery1.SQL.Add('and Таблица1.Город LIKE "'+ComboBox2.Text+'%"');
if ComboBox3.ItemIndex>0 then ADOQuery1.SQL.Add('and Таблица1.Отель LIKE "'+ComboBox3.Text+'%"');
 if ComboBox7.ItemIndex>0 then ADOQuery1.SQL.Add('and Таблица1.Звезды LIKE "'+ComboBox7.Text+'%"');;
if ComboBox8.ItemIndex>0 then ADOQuery1.SQL.Add('and Таблица1.Питание LIKE "'+ComboBox8.Text+'%"');
if ComboBox4.ItemIndex>0 then ADOQuery1.SQL.Add('and Таблица1.Авиокомпания LIKE "'+ComboBox4.Text+'%"');
if ComboBox5.ItemIndex>0 then ADOQuery1.SQL.Add('and Таблица1.Аэропорт LIKE "'+ComboBox5.Text+'%"');
   ADOQuery1.Active:=false;
ADOQuery1.Active:=true;