各位求救，delphi中excel另存为总是报错，为什么啊？

在delphi中添加了三个EXCEL控件
我是想用delphi 生成一个excel文件，然后保存。不用提示保存对话框。
我的代码如下：
ExcelApplication1.Connect;
   ExcelApplication1.Visible[0]:=false;
   ExcelApplication1.Caption :='报表';
   ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(null,0));
   Temp_Worksheet:=ExcelWorkbook1.WorkSheets.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam,0) as _WorkSheet;
   ExcelWorkSheet1.ConnectTo(Temp_WorkSheet);
   ExcelWorkSheet1.Name:='报表';
   ExcelApplication1.Cells.Font.Size:=9;
   ExcelApplication1.Cells.NumberFormat:='@';
   ExcelApplication1.Cells.item[1,1]:='姓名';   ExcelApplication1.DisplayAlerts[Getuserdefaultlcid] := False;   ExcelWorkbook1.SaveAs('c:\周报.xls',EmptyParam,EmptyParam,
                   EmptyParam,EmptyParam,EmptyParam,EmptyParam ,EmptyParam,
                   EmptyParam,EmptyParam,EmptyParam,0);
  ExcelApplication1.Disconnect;
  ExcelApplication1.Quit;