Puedes probar con este codigo
Código SQL
[-]
SELECT
ticket.unidades AS unidades,
ticket.desc_producto AS desc_producto,
ticket.ptotal AS precio,
ticketcabecera.nombre AS nombre,
ticketcabecera.fecha AS fecha
FROM
ticketcabecera,
ticket
WHERE
ticket.idticket = ticketcabecera.id AND
ticketcabecera.fecha >= :FECHA1 AND
ticketcabecera.fecha <= :FECHA2
Código Delphi
[-]
QConsulta.close;
QConsulta.ParamByname('Fecha1').Value :=E_Fecha1.date;
QConsulta.ParamByname('Fecha1').Value :=E_Fecha2.date;
QConsulta.Open;