[*Caro*]

Hola de nuevo, si no sabes la cantidad de parametros entonces no te conviene utilizar parametros, es mejor que armes la cadena.

Código Delphi [-]
 
Consulta := 'SELECT * FROM Proveedores.DB WHERE No IN(';
 
Valores := '';
for i:=0 to LBox_DatosImprimir.Count-1 do
 begin
  if i=LBox_DatosImprimir.Count-1 then
    Valores := Valores+LBox_DatosImprimir.Items[i]
 else
    Valores := Valores+LBox_DatosImprimir.Items[i]+','; 
end;

Consulta := Consulta+Valores+')';
 
Query.Active := False;
Query.Sql.Text := Consulta;
Query.Active := True;

Mas o menos así sería.

Saluditos