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)))

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;

Código SQL [-]
( D.clave_cliente in ((:cliente)))

Código SQL [-]
......................
( D.clave_cliente in (:cliente))
.........................

Código SQL [-]
....................................
IBQuery1.SQL.Text := 'SELECT D.DOCTO_CC_ID,D.FOLIO,................ '+
     '.....................................................................................'+
     '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 ('+ListBox.Items.CommaText+'))';
....................................

Código Delphi [-]
uses      CheckLst, // marcarchklb
     Classes // QuotedList
;
// y puede que haga falta alguno mas.


// devuelve los items de la siguiente forma : 'aaaa','bbbbb','ccc'
function QuotedList( Items: TStrings):string;
function QuotedListChklb( ctrl:TCheckListBox;const SoloChecked:Boolean = True):string;

....

function QuotedListchklb( ctrl:TCheckListBox;const SoloChecked:Boolean = True):string;
var i:integer;
begin
    result := '';
    with ctrl do
    
    for i:= 0 to Items.Count-1 do
      if SoloChecked then
      begin
        if Checked[i] then
          Result := Result +QuotedStr(Items[i])+',';
      end
      else
        Result := Result +QuotedStr(Items[i])+',';

  if Length(Result)>0 then
    Delete(Result,Length(Result),1); //quito la ultima coma

end;


function QuotedList( Items: TStrings):string;
var i:integer;
begin
    result := '';
    for i:= 0 to Items.Count-2 do
      Result := Result +QuotedStr(Items[i])+',';
    if Items.count > 0 then
      Result := Result + quotedstr(Items[Items.count-1]);
end;

Código Delphi [-]
IBQuery1.SQL.Text := 'SELECT D.DOCTO_CC_ID,D.FOLIO,................ '+
     '.....................................................................................'+
     '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 ('+QuotedList(ListBox.Items)+'))';