procedure poisk;
var filtr,add:string;
begin
Form2.ADOQuery1.filtered:=false;
filtr:='';
// город
if length(Form2.edit1.text) > 0 then filtr:= 'gorod LIKE '+ #39 + Form2.Edit1.Text + '%' + #39;
//  улица
if length(Form2.edit2.text) > 0 then
begin
if length(filtr) > 0 then add:= ' and ' else add:='';
filtr:=filtr + add + 'ulica LIKE '+ #39 + Form2.Edit2.Text + '%' + #39;
end;

//номер дома

if (length(Form2.edit16.text) > 0) and (length(Form2.edit17.text) > 0) then
begin//15
if length(filtr) > 0 then add:= ' and ' else add:='';
filtr:=filtr + add + ' nomerdoma >= '+ #39 + Form2.Edit16.Text + '%' + #39
                  + ' nomerdoma <= '+#39 + Form2.Edit17.Text + '%'  ;
end;//15

//  тут запускается фильтр
if length(filtr) > 0 then
begin
 Form2.ADOQuery1.Filter:= filtr;
  Form2.ADOQuery1.filtered:=true;
      end;
end;