[inad20]

que tal a todos espero y me puedan ayudar ya no encuentro la salida.
lo que quiero hacer es que de los datos de un ListBox enviarlos como parametro a un ibquery y que me muestro esos datos en un DBGrid les muestro como lo ago.

Código SQL [-]
SELECT D.DOCTO_CC_ID,D.FOLIO, 
       D.NATURALEZA_CONCEPTO, 
       D.CONCEPTO_CC_ID, 
       D.FECHA, C.NOMBRE  Cliente, 
       D.CLIENTE_ID,
       R.CALLE, 
       R.TELEFONO1, 
       P.NOMBRE NOMBRE_Condiciones, 
       V.FECHA_VENCIMIENTO, 
       CIUDADES_1.NOMBRE NOMBRE_Ciudad, 
       T.NOMBRE_ABREV estado, 
       L.DIAS_PLAZO,
       S.SALDO_CARGO
FROM DOCTOS_CC D
      INNER JOIN CLIENTES C ON 
     (C.CLIENTE_ID = D.CLIENTE_ID)
      INNER JOIN DIRS_CLIENTES R ON 
     (R.CLIENTE_ID = C.CLIENTE_ID)
      INNER JOIN CONDICIONES_PAGO P ON 
     (P.COND_PAGO_ID = C.COND_PAGO_ID)
      LEFT OUTER JOIN VENCIMIENTOS_CARGOS_CC V ON 
     (V.DOCTO_CC_ID = D.DOCTO_CC_ID)
      INNER JOIN CIUDADES CIUDADES_1 ON 
     (CIUDADES_1.CIUDAD_ID = R.CIUDAD_ID)
      INNER JOIN ESTADOS T ON 
     (T.ESTADO_ID = CIUDADES_1.ESTADO_ID)
      INNER JOIN PLAZOS_COND_PAG L ON 
     (L.COND_PAGO_ID = P.COND_PAGO_ID)
left outer join SALDO_CARGO_CC_S ( D.DOCTO_CC_ID,D.FECHA,0,'N') s
on(D.docto_cc_id=cargo_id)
WHERE ( D.CONCEPTO_CC_ID = 4 )
       and (s.saldo_cargo<>0)        and 
( D.clave_cliente in ((:cliente)))

y asi paso el parametro

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
 begin
ibquery1.Close;
IBQuery1.Prepare;
IBTransaction1.Active:=true;
IBQuery1.ParamByName('cliente').AsString:=listbox1.Items.DelimitedText;
IBQuery1.open;

end;

cuando solo pongo 1 dato me lo da sin ningun problema pero si pongo mas de 1 ya no me mesta nada agradesco de de ya cualquier ayuda que me puedan dar gracias.