Foros Club Delphi - Consulta fecha adoquery en quickreport

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

Código:

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