Tdate sin decimales

[MITOPE]

Holas, tengo un problemita, estoy usando el componente TMonthCalendar para seleccionar datos de una base de datos,por la fecha, en Sql. Cuando quiero poner la fecha actual al componente al monento de cargar el formulario usando Now, Today y Date (probe con todos estos comandos) en la propiedad DATE; luego lo quiero leer y pasarlo a un Query, la fecha tiene decimales y no trae nada, pero si selecciono la fecha desde el componente, al query le pasa la fecha sin decimales y si me trae la informacion. Mi variable fecha es del tipo TDATE.

No se como puedo hacer para que no me aparezcan los decimales al poner la fecha actual al componente MonthCalendar. que me trae problemas en las consultas.

Espero que me puedan ayudar, gracias por todo, saludos

[__cadetill]

Mírate la función Trunc

[MITOPE]

Acabo de probarlo pero me sigue poniendo la fecha con decimales, no se como puedo solucionarlo.