Não atualiza Filtro de Data em SQL

Pessoal

Em relação ao seguinte código abaixo:

Sql.Clear;
Close;
Sql.Add(´select * from TBCRIANCAS c´);
Sql.Add(´ where c.DTNASC BETWEEN :DataInicial and :Datafinal´);

parambyname(´DataInicial´).asDatetime := StrToDate(DateInicial.Text);
parambyname(´DataFinal´).asDatetime := StrToDate(DateFinal.Text);

params[0].asDatetime := StrToDate(DateInicial.Text);
params[1].asDatetime := StrToDate(DateFinal.Text);

Open;


Até está filtrando certinho, mas isso pela primeira vez. Se mandar executar o relatório novamente com outras datas ele traz o filtro da data anterior

Aguardo um retorno

Rogério