用delphi自带的excelapp等控件导出数据到excel中，保存文件时出现异常的处理~~~？？

当程序执行时候，可以把数据一条一条写到excel中，并可以保存成xls文件，问题出现在当有同名的xls文件存在同一目录的时候，怎么是“ms-excel”弹出窗体，提示是覆盖、取消、中断、，而且点覆盖可以将原同名文件覆盖，点否或concel时出现ole异常。。，这是怎么搞的~~怎么才能把那个正在执行的保存文件的过程给中断呀~~
下面是导入excel的过程：：
procedure tform1.WriteExcel(AdsData:Tadoquery; sName, Title: string);
var
  ExcelApplication1: TExcelApplication;
  ExcelWorksheet1: TExcelWorksheet;
  ExcelWorkbook1: TExcelWorkbook;
  i, j: integer;
  filename: string;
begin
  filename := concat(sName, '.xls');
  //filename:=edtfilepath.Text;
  try
    ExcelApplication1 := TExcelApplication.Create(Application);
    ExcelWorksheet1 := TExcelWorksheet.Create(Application);
    ExcelWorkbook1 := TExcelWorkbook.Create(Application);
    ExcelApplication1.Connect;
  except
    Application.Messagebox('Excel没有安装!','Hello',MB_ICONERROR + mb_Ok);
    Abort;
  end;
   try
     ExcelApplication1.Workbooks.Add(EmptyParam, 0);
     ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]);
     ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1] as _worksheet);
     AdsData.First;
    for j := 0 to AdsData.Fields.Count - 1 do
     begin
      ExcelWorksheet1.Cells.item[3, j + 1] := AdsData.Fields[j].DisplayLabel;
      ExcelWorksheet1.Cells.item[3, j + 1].font.size :='10';
     end;
    for i := 4 to AdsData.RecordCount + 3 do
    begin
      for j := 0 to AdsData.Fields.Count - 1 do
      begin
        ExcelWorksheet1.Cells.item[i, j + 1] :=
        AdsData.Fields[j].Asstring;
        ExcelWorksheet1.Cells.item[i, j + 1].font.size := '10';
      end;
      AdsData.Next;
    end;
  ExcelWorksheet1.Columns.AutoFit;
  ExcelWorksheet1.Cells.item[1, 2] := Title;
  ExcelWorksheet1.Cells.Item[1, 2].font.size :='14';
  ExcelWorksheet1.SaveAs(filename);//问题在这里~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  Application.Messagebox(pchar('数据成功导出'+ filename),'提示消息',mb_Ok);
  finally
    ExcelApplication1.Disconnect;
    ExcelApplication1.Quit;
    ExcelApplication1.Free;
    ExcelWorksheet1.Free;
    ExcelWorkbook1.Free;
end;
end;