Duvida com Recurso na Aplicação em Delphi XE5

Comunidade Boa Noite, estou com uma dúvida que não estou conseguindo solucionar que é a seguinte:

tenho um form junto com um grid, tenho um DatePicker onde eu informo uma data e mando filtrar me retornando os registros no grid. essa é a lógica que quero implementar, retornar os dados de acordo com a data especificada. Contudo não estou conseguindo implementar envio abaixo o Fonte e peço ajuda a Comunidade

// Comando BtnBuscar

QueryConsulta.Active := False;
cdsConsulta.Close;
QueryConsulta.Params[0].Value := StrToDate(txtData.Text); -> Já testei também com está linha -> QueryConsulta.Params[0].Value := '%' + txtData.Text + '%';
QueryConsulta.Active := True;
cdsConsulta.Open;
//

//Consulta SQL
SELECT

agenda.idagenda,
agenda.dataAgenda,
projetos.nome_projeto,
projetos.prazo_entrega,
tarefas.nome_tarefa,
tarefas.prazo_execucao,
tarefas.status_tarefa,
tarefas.data_abertura
FROM
agenda
Inner Join projetos ON projetos.idprojetos = agenda.cod_projeto
Inner Join tarefas ON tarefas.idtarefas = agenda.cod_tarefa

and
agenda.dataAgenda like :data_visualiza

//

parametro data_visualiza esta setado para o tipo fixed_char com valor %



O que acontece no Retorno é o seguinte... ele sempre me retorna o DB em branco, mesmo com a Data selecionada

Obs

Já testei esta consulta SQL com = ao invés de like e já testei a seguinte consulta SQL

SELECT
agenda.idagenda,
agenda.dataAgenda,
projetos.nome_projeto,
projetos.prazo_entrega,
tarefas.nome_tarefa,
tarefas.prazo_execucao,
tarefas.status_tarefa,
tarefas.data_abertura
FROM
agenda, projetos, tarefas where projetos.idprojetos = agenda.cod_projeto and tarefas.idtarefas = agenda.cod_tarefa and agenda.dataAgenda like :data_visualiza

Conto com a ajuda de todos vocês...

Grato pela atenção