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';
frm_reportediario.ADOQuery1.Parameters.ParamByName('PFechaf').DataType:=ftstring;
frm_reportediario.ADOQuery1.Parameters.ParamByName('PFechaf').Value:=dia +' ' +'6:00';
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;