[[oscarac]]

podrias hacer algo como esto

Código Delphi [-]
  qryListadoComprasArticuloAnalitico.Open;  <- Data asociada al reporte
  if qryListadoComprasArticuloAnalitico.IsEmpty then
   MessageDlg('No existe informacion en el rango solicitado',mtWarning,[mbRetry],0)
  Else
  begin
    if qrListadoComprasArticuloAnalitico = Nil then
      qrListadoComprasArticuloAnalitico := TqrListadoComprasArticuloAnalitico.Create(Nil);  <- Reporte
      with qrListadoComprasArticuloAnalitico do
      begin
        qrListadoComprasArticuloAnalitico.qrlEmpresa.Caption:= dmGlobal.g_NombreEmpresa;
        qrListadoComprasArticuloAnalitico.qrlRuc.Caption:= dmGlobal.g_RUCEmpresa;
        qrListadoComprasArticuloAnalitico.qrlSubTitulo.Caption :=  'En moneda ' + iif (rgmoneda.itemindex =0, 'Nacional ','Extranjera') +  ' Del ' + DateToStr(dtInicial.Date) + ' al ' + DateToStr(dtFinal.Date);
        qrListadoComprasArticuloAnalitico.Preview;
      end;
      FreeAndNil(qrListadoComprasArticuloAnalitico);
  End;
  qryListadoComprasArticuloAnalitico.Close;