Exportar reporte a pdf de crystal desde delhpi

[richy08]

buenas tardes compañeros alguien sabe las sentencias de codigo para exportar a pdf un reporte de crystal utilizo el siguiente codigo pero a la hora de querer abrir el reporte e lacrobat me dice que tiene un formato que n ocomprende o el archivo esta dañado gracias.

Código Delphi [-]
 Shopping.DiscardSavedData;
         Shopping.Refresh;
         Shopping.WindowState:=wsmaximized;
         Shopping.ReportName:='C:\Program Files\SitiSystems\SmartQuote\DetProZeusGen.rpt';
         Shopping.ReportTitle:='Payment Order: '+inttostr(Qry_ult.fieldbyname('id').value)+' '+Qry_BusSup.fieldbyname('supplier').Value;
         Shopping.Paramfields[0].currentvalue:=dbgrid1.Fields[0].Value;
         Shopping.Paramfields[1].currentvalue:=Qry_BusSup.fieldbyname('supplier').Value;
         Shopping.SaveAs('\\Sitiserver\users\PaymentOrder\'+inttostr(Qry_ult.fieldbyname('id').value)+' '+Qry_BusSup.fieldbyname('supplier').Value+'.PDF');
         Shopping.ExportOptions.FileType := CrystalReportRPT;