Seleccionar datos para imprimir

[Alexandro]

Miren este es el codigo que he puesto:

Código Delphi [-]
For i:=0 to LBox_DatosImprimir.Count-1 do
 if i=0 then
          begin
           Filtro:=LBox_DatosImprimir.Items.Strings[i];
          end
        else
          begin
            Filtro:=Filtro+' AND '+LBox_DatosImprimir.Items.Strings[i];
          end;
QConsulta.Close;
QConsulta.SQL.Text:='SELECT * FROM Proveedores.db WHERE Proveedor IN(:valor)';
QConsulta.Params[0].AsString:=Filtro;
QConsulta.Open;
FrmProveedorInforme.Reporte1.DataSet:=QConsulta;
FrmProveedorInforme.Reporte1.Preview;

El reporte se muestra pero solo con el ultimo registro que introduje en la tabla, ni siquiera toma los valores de la consulta. Que pasa aki? Les ruego me respondan, lo estoy necesitando.
Suerte