[ArtPortEsp]

Hola;
estoy experimentando un problema algo raro; estoy generando un reporte en PDF que posteriormente envío por correo electrónico desde la pantalla de preview...
el codigo para "generar el reporte" es este:

Código Delphi [-]
               Fcartas.Recpagesp.PDFSettings.Title := 'Recordatorio de pago '+Qrecibos.fieldbyname('re_pol').asstring+' ('+StringReplace(Qrecibos.fieldbyname('re_num').asstring, '/', '-', [rfReplaceAll, rfIgnoreCase])+')';
            Fcartas.Recpagesp.Print;

en la pantalla de preview tengo un botón que ejecuta la accion de enviar el reporte por correo :

Código Delphi [-]
     ppViewer1.Report.AllowPrintToFile := True;
     ppViewer1.Report.DeviceType := dtPDF;

     ppViewer1.Report.PDFSettings.Author := 'SEGSYS';
     //ppViewer1.Report.PDFSettings.Title  := Ltitulo.Caption;

     ppViewer1.Report.PDFSettings.OpenPDFFile := True;

     xcarpeta := 'c:\asap\temp';
     xarchivo  := ppViewer1.Report.PDFSettings.Title+'.pdf';

     If ForceDirectories(xcarpeta) then
          ppViewer1.Report.TextFileName := xarchivo;

     lPDFDevice := TppPDFDevice.Create(nil);

     if (FOutputStream = nil) then
          FOutputStream := TMemoryStream.Create
     else
          FOutputStream.Clear;


     try
          lPDFDevice.PDFSettings   := ppViewer1.Report.PDFSettings;
          lPDFDevice.OutputStream  := FOutputStream;        // assign output stream
          lPDFDevice.Publisher     := ppViewer1.Report.Publisher;

     // generate the report
     ppViewer1.Report.PrintToDevices;

     finally
          lPDFDevice.Free;
     end;

la primera vez que genero el reporte lo hace perfectamente, el problema viene cuando lo vuelvo a intentar; me manda la pantalla de la impresora [imagen] y me abre el acrobat con el archivo PDF
Alguna sugerencia?