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