Consulta fecha adoquery en quickreport

[rafaelon]

buen dia , tengo el siguiente problema , tengo una tabla "orden" con varios datos del cliente equipos , repuestos, pero lo que quiero hacer es hacer una consulta que me traiga los registros con la fecha dia en curso e imprimirlo en un reporte como un "reporte diario" sin embargo en los qrdbtext me sale el ultimo registro varias veces

begin
with frm_reported.adoreported do
begin
sql.clear;
SQL.Text:= 'select * from orden where Fecha like'+quotedstr('%'+frm_principal.label40.Caption+'%')+' ; '; ;
Open;
Frm_reported.QuickRep1.Prepare;
frm_reported.QuickRep1.Preview;

label40.caption muestra la fecha con un timer

en el datset del qreport tengo el query, los qrdbtext tengo el query en el dataset y los datafield con los campos que quiero mostar
en la propiedad sql del query tengo "select * from orden"

no se que puede estar mal la consulta la muestro con datasorce en dbgrid y si funciona , gracias de antemano