[nopi]

Que tal colegas, estoy tratando de convertir un reporte de FastReport a PDF, el procedimiento que utilizo es el siguiente:

Código Delphi [-]
procedure ExportarReportePDF(UnReporte: TfrxReport; UnNombre: String);
var
  ExportPDF  : TfrxSynPDFExport;
  GuardarPDF : TSaveDialog;
begin
  ExportPDF  := TfrxSynPDFExport.Create(nil);
  GuardarPDF := TSaveDialog.Create(nil);
  Try
    Try
      GuardarPDF.DefaultExt := '*.pdf';
      GuardarPDF.FileName   := UnNombre;
      GuardarPDF.Filter     := 'PDF|*.pdf';
      GuardarPDF.Options    := [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing];

      If GuardarPDF.Execute then
      Begin
        ExportPDF.FileName        := GuardarPDF.FileName;
        ExportPDF.ShowDialog      := False;
        ExportPDF.ShowProgress    := False;
        ExportPDF.OpenAfterExport := False;
        ExportPDF.HideToolbar     := True;

        UnReporte.PrepareReport(True);
        UnReporte.Export(ExportPDF);
        AbrirArchivos(GuardarPDF.FileName);
      End;
    Except on e : Exception do
      Begin
        msError('Ha ocurrido el siguiente error: ' + E.Message);
      End;
    End;
  Finally
    FreeAndNil(ExportPDF);
    FreeAndNil(GuardarPDF);
  End;
end;

El detalle de este código es que tarda casi 1 minuto en la instrucción

Código Delphi [-]
UnReporte.Export(ExportPDF);

Tienen alguna idea de que pudiera estar mal? De antemano muchas gracias !!