fallo en qrpt70.bpl

[emeritos]

Este es el codigo del programa que siempre me ha funcionado bien:

Código Delphi [-]
       
             ficheropdf := 'pdf\Utilizacion';
              Application.CreateForm(Tfrmimprimir, frmimprimir);
              frmimprimir.QRimputilizacion.Prepare;
              ExportQR1.Report := frmimprimir.QRimputilizacion;
              ExportQR1.ExportQRPDF(ficheropdf,True);
              frmimprimir.Free;
              ficheropdf := ficheropdf + '.pdf';
              ShellExecute(Handle, 'open', PChar(ficheropdf), '', '', SW_SHOW);

Pero ahora cuando se ejecuta esta linea

frmimprimir.QRimputilizacion.Prepare;

Es cuando sale el error de qrpt70.bpl