在DELPHI设置EXCEL工作薄的名称

excel顶端标题栏的标题分二个部分，前面是微软EXCEL，后面是book1,现在问题如何用DELPHI设置，使它不是book1，而是自己想要的名称，这个很重要，因为保存文件时，它是保存文件的默认文件名。

XLApp.Application.Caption:='新的标题';

首先打开EXCEL文件，改名保存后，删除原文件就达到目地了。 源码： procedure TForm1.Button1Click(Sender: TObject); const NewName = 'NewName.xls'; var fnm,pth: String; ExlApp: TExcelApplication; ExlWb: TExcelWorkbook; begin if OpenDialog1.Execute then begin fnm := OpenDialog1.FileName; pth := ExtractFilePath(fnm); ExlApp := TExcelApplication.Create(Forms.Application); ExlApp.Connect; ExlApp.Visible[0] := False; ExlWb := TExcelWorkbook.Create(Forms.Application); ExlWb.ConnectTo( ExlApp.Workbooks.Open(fnm, EmptyParam,EmptyParam,EmptyParam,EmptyParam, EmptyParam,EmptyParam,EmptyParam,EmptyParam, EmptyParam,EmptyParam,EmptyParam,EmptyParam, EmptyParam,EmptyParam,0)); ExlApp.Application.DisplayAlerts[0] := False; ExlWb.SaveCopyAs(pth + NewName); ExlWb.Close(EmptyParam, fnm, EmptyParam, 0); ExlApp.Quit; //必要时，可以删除原来的文件 //DeleteFile(fnm); end; end;

DELPHI是软件还是公司名啊？