Como formar esta consulta?

[Viet]

Hola

Se me ocurre que puedes hacer

  

   Var 

          aux: String;

   begin
         
Aux :=' SELECT Guia.Codigo, Paquete.CodigoPaquete, Paquete.EstadoPaquete, Paquete.FechaHora,Direccion.Direccion, Ciudad.NombreCiudad
FROM Ciudad INNER JOIN
Direccion ON Ciudad.IdCiudad = Direccion.IdCiudad INNER JOIN
DireccionConsignatario ON Direccion.IdDireccion = DireccionConsignatario.IdDireccion INNER JOIN
Guia INNER JOIN
Paquete ON Guia.Codigo = Paquete.CodigoGuia INNER JOIN
Consignatario ON Guia.IdDestinatario = Consignatario.IdConsignatario INNER JOIN
Ente ON Consignatario.IdConsignatario = Ente. IdEnte ON DireccionConsignatario.IdConsignatario = Consignatario.IdConsignatario
WHERE (Paquete.CodigoPaquete IN (';

i:= 0;
While  i< RxCheckListBox1.Items.Count do 
  begin 
         if RxCheckListBox1.checked[i] then
           aux:= aux +'"'+  RxCheckListBox1.Items.String[i]+'",' ;
       inc(i);
  end;
 
  aux := Copy(aux,1,length(aux) -1); // saco el ultimo "
  aux:= aux +'))';


     
   End;

Suerte