Hola
Se me ocurre que puedes hacer
Código:
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