[rafaelon]

lo resolvi de esta manera no se si sea la mas optima , gracias por sus respuestas

Código Delphi [-]
procedure Tfrm_menu.FlatButton2Click(Sender: TObject);
var
dia:string;
begin
dia:=datetostr(IncDay(date, 1));
Buscarf (label7.Caption, encontrado);
if encontrado then
with frm_reportediario.ADOQuery1 do
begin
close;
sql.clear;
SQL.Text:= 'select * from ventas where hora between :PFechai and :PFechaf ';
frm_reportediario.ADOQuery1.Parameters.ParamByName('PFechai').DataType:=ftstring;
frm_reportediario.ADOQuery1.Parameters.ParamByName('PFechai').Value:=frm_menu.Label7.Caption +' ' + '12:00';
//showmessage (frm_reportediario.ADOQuery1.Parameters.ParamByName('PFechai').Value);
frm_reportediario.ADOQuery1.Parameters.ParamByName('PFechaf').DataType:=ftstring;
frm_reportediario.ADOQuery1.Parameters.ParamByName('PFechaf').Value:=dia +' ' +'6:00';
//showmessage (frm_reportediario.ADOQuery1.Parameters.ParamByName('PFechaf').Value);
Open;
begin
a:=label7.Caption;
frm_reportediario.RLReport1.Prepare;
frm_reportediario.RLReport1.SaveToFile('C:\Billar\Reportes\Reportediario_' + (a)  + ('.pdf') );
frm_reportediario.RLReport1.Preview;
 end;
 end
 else
 Showmessage('No hay ordenes en el día')


end;