[leofuentes21]

Gracias amigos por su ayuda despues de tanto provar y quebradera de cabeza lo logre
el problema estaba cuando pasaba los parametros.

Código SQL [-]
       Q_fol.First;
       WITH  qry1 DO
       BEGIN
         Active:=False;
         SQL.Clear;                                                                                                                  
         SQL.Add('SELECT * FROM FACT01 WHERE  (CVE_DOC LIKE OC ) AND (TIP_DOC ='+QUOTEDSTR('F')+') AND (STATUS <> '+QUOTEDSTR('C')+') AND(FECHA_DOC >= :F1) AND (FECHA_DOC <= :F2) '+BUSCA+' ');
       //  C:=1;  // aqui estaba el erro yo le asiganaba el valor c:=1 entonces no le asiganaba el primer parametro y se lo saltaba
         ParamByName('DOC').Text:='%'+Trim(Q_fol.FIELDBYNAME('FOLUSER').Text)+'%';
         C:=1 ;
         Params[C].AsDate:=DateTimePicker1.DATE;
         C:=C+1 ;
         Params[C].AsDate:=DateTimePicker2.DATE;
         Q_fol.Next;
         while not Q_fol.Eof do
         begin
            C:=C+1 ;
            Params[C].Text:='%'+Trim(Q_fol.FIELDBYNAME('FOLUSER').Text)+'%';
            C:=C+1 ;
            Params[C].AsDate:=DateTimePicker1.DATE;
            C:=C+1 ;
            Params[C].AsDate:=DateTimePicker2.DATE;
            C:=C+1;
            Q_fol.Next;
         end;
         Active:=True;
       end;

gracias espero pasen un feliz año nuevo