---

  // запускаем новый экземпляр Excel'я

    XL := TExcelApplication.Create(nil);
    WB := TExcelWorkbook.Create(Self);
    ASheet := TExcelWorksheet.Create(Self);
  try

    XL.ConnectKind := ckNewInstance;
    XL.Connect; //подключение
    WB.ConnectTo(XL.Workbooks.Add(EmptyParam, lcid));
    XL.AutoQuit := False;

    XL.Workbooks.Add(curr_dir+file_name+'.xls', lcid);


    ASheet.ConnectTo(XL.ActiveSheet as _Worksheet);

---

---

// Листы заполнены

    XL.StatusBar[lcid] := False; // спрятать статус бар
    WB.Saved[lcid] := True;
    XL.ScreenUpdating[lcid] := True;
    // здесь работаем с Excel'ем
  finally
    // отсоединяемся
    XL.Visible[lcid] := True;

    XL.UserControl := True; // отдадим управление пользователю
    XL.Quit; // закрыть Excel
    XL.Disconnect;
    FreeAndNil(XL);

---