Filtrar dados em DBGrid

select F.data_venda,
F.data_venc,
F.codigo,
CC.codigo,
CC.nome,
F.valor_total
from financeiro as F(nolock)
join cadastro_clientes as CC
on CC.codigo = F.cod_cliente
where F.data_venda between (:dtemissao1 and :dtemissao2)
or (F.data_venc between :dtvencimento1 and :dtvencimento2)
or (CC.codigo >= :codigoinicial and CC.codigo <= :codigofinal)

if not Qry_Consulta.IsEmpty then
begin
Qry_Consulta.Close;
Qry_Consulta.SQL.Clear;
Qry_Consulta.SQL.Add('select * from financeiro where not exists (select pagto financeiro where pagto = 1)')
Qry_Consulta.Open;
end;

  with SQLQuery2 do  //Utilizando SQLQuery [DBX] + ClientDataSet
  begin
    close; // Fecha o SQLQuery
    SQL.Clear; //Limpa o SQLQuery
    //Adiciona instruções ao SQLQuery
    SQL.Add('SELECT F.DTVENDA, F.DTVENC, F.IDFINAN, CC.IDCLI, CC.NMCLI, ');
    SQL.Add(' F.VLRTOTAL FROM FINANCEIRO as F ');
    SQL.Add('JOIN CLIENTESX AS CC ON CC.IDCLI = F.IDCLI');

    if ChkEmiss.Checked = True then // Verifica se o checkbox Emissão está marcado
    begin
      // Verifica se mais algum CheckBox está marcado, se estiver muda a instrução
      if (ChkVenc.Checked =  True) or (ChkCli.Checked = true) then
      begin
        SQL.Add(' AND (F.DTVENDA BETWEEN :dtemissao1 and :dtemissao2) ');
        Params.ParamByName('dtemissao1').AsDate := StrToDate(Edit6.Text);
        Params.ParamByName('dtemissao2').AsDate := StrToDate(Edit9.Text);
      end
      else
      begin
        SQL.Add(' WHERE (F.DTVENDA BETWEEN :dtemissao1 and :dtemissao2) ');
        Params.ParamByName('dtemissao1').AsDate := StrToDate(Edit6.Text);
        Params.ParamByName('dtemissao2').AsDate := StrToDate(Edit9.Text);
      end;
    end;

    if ChkVenc.Checked = true then // Verifica se o checkbox Vencimento está marcado
    begin
      if (ChkEmiss.Checked =  True) or (ChkCli.Checked = true) then
      begin
        SQL.Add(' AND (F.DTVENC BETWEEN :dtvencimento1 and :dtvencimento2) ');
        Params.ParamByName('dtvencimento1').AsDate := StrToDate(Edit7.Text);
        Params.ParamByName('dtvencimento2').AsDate := StrToDate(Edit10.Text);
      end
      else
      begin
        SQL.Add(' WHERE (F.DTVENC BETWEEN :dtvencimento1 and :dtvencimento2) ');
        Params.ParamByName('dtvencimento1').AsDate := StrToDate(Edit7.Text);
        Params.ParamByName('dtvencimento2').AsDate := StrToDate(Edit10.Text);
      end;
    end;

    if ChkCli.Checked = true then // Verifica se o Checkbox cliente está marcado
    begin
      if (ChkVenc.Checked =  True) or (ChkEmiss.Checked = true) then
      begin
        SQL.Add(' AND (CC.IDCLI >= :codigoinicial and CC.IDCLI <= :codigofinal ) ');
        Params.ParamByName('codigoinicial').AsInteger := StrToInt(Edit8.Text);
        Params.ParamByName('codigofinal').AsInteger := StrToInt(Edit11.Text);
      end
      else
      begin
        SQL.Add(' WHERE (CC.IDCLI >= :codigoinicial and CC.IDCLI <= :codigofinal ) ');
        Params.ParamByName('codigoinicial').AsInteger := StrToInt(Edit8.Text);
        Params.ParamByName('codigofinal').AsInteger := StrToInt(Edit11.Text);
      end;
    end;

    ExecSQL; //Executa a instrução
  end;
  Memo1.Lines.Assign(SQLQuery2.SQL); //Aqui é possível ver no Memo a instrução SQL gerada
  Cds2.Close; // Fecha o ClientDataSet
  Cds2.Open;  // Abre o ClientDataSet (é como se fosse dado um refresh)