[icWasya]

А если подумать?

Код:

var
  F,S:String;
.....
S:='';  F:='';
if (combobox15.Text<>'') then
begin
   S:=Format('(Район LIKE ''%s'')',[combobox15.Text]); 
   if F= '' then F:= S else F:=F + 'and '+S;
end;{if1}

if (edit2.Text<>'')then
begin 
  S:=Format('(Комнат ''%s'')',[edit2.Text]);
  if F= '' then F:= S else F:=F + 'and '+S;
end;{if2}

if (checkbox9.Checked) then
begin 
  S:='(Этаж<>1)';
  if F= '' then F:= S else F:=F + 'and '+S;
end;{if3}

if F='' then begin
  ADOQuery1.Filtered:=False; 
end else begin
  ADOQuery1.Filter:=F; 
  ADOQuery1.Filtered:=True; 
end;

Только условие с комнатами непонятное