你还得import一个Crystal Report ActiveX Runtime.....这个dll,然后会有一个TApplication对象
Report: IReport;
CryApplication1: TApplication;
crViewer1: TViewer;
Report := CryApplication1.OpenReport(strFileName, crOpenReportByTempCopy);
crViewer1.ReportSource := Report;
crViewer1.ViewReport;