如何通过delphi在Excel中添加一个工作薄，使用模板

Question

procedure TForm1.Button1Click(Sender: TObject);
var syspath:string;sheets:olevariant;i:integer;
begin
  syspath:=extractfilepath(application.exename);
  if varisempty(app) then
  try
    app:=createoleobject('excel.application');
  except
    messagedlg('Excel 没有正确安装!',mterror,[mbok],0);
    exit;
  end;
  app.workbooks.open(syspath+'template\模板.xls');
  sheets:=app.workbooks[1].worksheets;
  i:=1;
  for i:=1 to app.workbooks[1].worksheets.count do
    if app.workbooks[1].sheets[i].name=combobox1.text then
      begin
        //app.displayalerts:=false;
        app.workbooks[1].sheets[i].select;
        break;
        //app.displayalerts:=true;
      end;
  app.visible:=true;
end;