Excelのシートを削除する際の確認を表示させない

　OLEオートメーションで Excel を操作する場合、エクセルのシートを削除しようとすると 「選択したシートを削除します。一度削除すると元に戻すことはできません。 [ OK / キャンセル ] 」 のダイアログが出てしまいます。これを表示させないようにするには Application オブジェクトの DisplayAlerts プロパティに False をセットしておきます。

■ Excelのシートを削除する際の確認を表示させない例 
uses
  ComObj;

procedure TForm1.Button1Click(Sender: TObject);
var
  ExcelApp: Variant;
begin
  //Excel起動
  ExcelApp  :=  CreateOleObject('Excel.Application');  
  //Excelを表示
  ExcelApp.Visible  :=  True;
  //新規につくるシートの数を設定
  ExcelApp.SheetsInNewWorkbook :=  5;
  //ブックの新規作成
  ExcelApp.Workbooks.Add;
  //シート３を選択
  ExcelApp.Sheets['Sheet3'].Select;

  //確認ダイアログを出さない
  ExcelApp.DisplayAlerts  :=  False;
  //シート削除
  ExcelApp.ActiveSheet.Delete;
end;