Realizar una busqueda con TzQuery y CheckBox

[Belen12]

Hola buenas noches. Tengo un formulario en el cual realizo una vista de los productos que tengo cargados en la base de datos.
Para esto utilizo un TzQuery de Zeos y un TdbGrid para visualizar dichos datos la aplicación la realizo en delphi 2010.
Cuando realizo la búsqueda de algún producto utilizo un tedit y un boton. Resulta que lo que quiero es realizar una búsqueda utilizando opciones que ingrese en un checkbox por ejemplo. Cuando abro el formulario por defecto me muestra todos los productos que están con estado 1 osea activos pero no visualizo los de estado 0. Lo que quiero es tener un ListCheckbox en el cual tenga 3 opciones una activo, otra dados de baja,otra todos. El cual yo marque alguna y al realizar la búsqueda utilice esto como filtro me podrian ayudar ?. Dejo el codigo de la búsqueda que realice hasta ahora.

procedure TfListadosProductos.bBuscarClick(Sender: TObject); //buscar
begin
qProductos.ParamByName('buscar').AsString := '%' +eProductos.Text+'%';
qProductos.Refresh;
end;

esta linea tengo a la hora de llamar el formulario


qProductos.Active:= true;
qProductos.ParamByName('buscar').AsString := '%';
qProductos.Refresh;
tfListadosProductos.ShowForm(false);

y aqui dejo la consulta del query

SELECT
`producto`.`idproducto`,
`producto`.`cantidadpr`,
`producto`.`nombrepr`,
`producto`.`precio_unit`,
`producto`.`precio_reparto`,
`producto`.`estadoproducto`
FROM
`producto`
WHERE
`estadoproducto` = 1 AND nombrepr LIKE :buscar

muchas gracias desde ya