[[Lepe]]

Lo que dice poliburro es que no uses la propiedad Filter, sino que esa condición la añadas al Where de tu consulta en tiempo de ejecución.

Código Delphi [-]
procedure TForm1.Button4Click(Sender: TObject);

const sqlClientes = ' Select * from clientes ';

begin
  ADOQuery1.Active:= False;
  ADOQuery1.Sql.text := sqlClientes;
  if (ADOQuery1.Filter <> '') then
    begin
      ADOQuery1.Sql.text := sqlClientes + ' where Tipo = "Metal"';
      Button4.Font.Style:= Button4.Font.Style + [fsBold];
    end
  else
      Button4.Font.Style:= Button4.Font.Style - [fsBold];
  ADOQuery1.Active:= True;
end;

Edito el signo "igual", debe ser "distinto"

Saludos