1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

//Excel starten
  flcid := GetUserDefaultLCID;
  ExcelApplication1.Connect;
  ExcelApplication1.Visible[flcid] := true;
  ExcelApplication1.UserControl := true;

//Arbeitsmappe erstellen und Verbindung herstellen
  ExcelApplication1.Workbooks.add(EmptyParam,flcid);
  ExcelWorkbook1.ConnectTo(ExcelApplication1.ActiveWorkbook);
  ExcelWorksheet1.ConnectTo(ExcelApplication1.activeSheet as _Worksheet);