[Alexandro]

Hola Caro!!!!
Ya he resuelto el problema!!!
El Probema estaba en que cuando esto pasa

Código Delphi [-]
Consulta:='SELECT * FROM Proveedores.Db WHERE Proveedor IN("';

ahí que ponerle comillas dobles a cada valor y separarlos por comas, entonces quedó así y funciona.

Código Delphi [-]
i:integer;
Consulta, Filtro: String;
begin
Consulta:='SELECT * FROM Proveedores.Db WHERE Proveedor IN("';
Filtro:='';
For i:=0 to LBox_DatosImprimir.Count-1 do
 if i=LBox_DatosImprimir.Count-1 then
          begin
           Filtro:=Filtro+LBox_DatosImprimir.Items.Strings[i];
          end
        else
          begin
            Filtro:=Filtro+LBox_DatosImprimir.Items.Strings[i]+'","';
          end;
Consulta:=Consulta+Filtro+'")';
QConsulta.Close;
QConsulta.SQL.Clear;
QConsulta.SQL.Text:=Consulta;
QConsulta.Open;
FrmProveedorInforme.QuickRep1.DataSet:=QConsulta;
FrmProveedorInforme.QuickRep1.Preview;

Gracias por contestar, me han sido de muchisima ayuda
Suerte y continuen así.