var
  XL: TExcelApplication;
begin
  // запускаем новый экземпляр Excel'я
  XL := TExcelApplication.Create(nil);
  try
    XL.ConnectKind := ckNewInstance;
    XL.Connect; // подключение
    XL.AutoQuit := False; // по умолчанию это свойство True только в unit ExcelXP
    XL.Visible[lcid] := True;
    // здесь работаем с Excel'ем
  finally
    // отсоединяемся
    XL.UserControl := True; // отдадим управление пользователю
    XL.Quit; // закрыть Excel
    XL.Disconnect;
    FreeAndNil(XL);
  end;

XL := Unassigned;

XL.Disconnect;

var
  XL: TExcelApplication;
begin
  // запускаем новый экземпляр Excel'я
  XL := TExcelApplication.Create(nil);
  try
    XL.ConnectKind := ckNewInstance;
    XL.Connect; // подключение
    XL.AutoQuit := False; // по умолчанию это свойство True только в unit ExcelXP
    XL.Visible[lcid] := False;
    // здесь работаем с Excel'ем
    XL.Visible[lcid] := True;
    // Тут нужно как-то отвязаться от Excel, иначе процесс Excel можно будет убить только через диспетчер задач.

 if CheckExcelInstall then
      begin
        exc:=CreateOleObject(ExcelApp);
        exc.ErrorCheckingOptions.BackgroundChecking:=BackgroundChecking;
        exc.ErrorCheckingOptions.InconsistentFormula:=InconsistentFormula;
        exc.ScreenUpdating:=ScreenUpdating;
        exc.DisplayAlerts:=EnableAlerts;
        exc.Visible:=Visible;
        Result:=True;
      end

function StopExcel(var exc:OLEVariant):boolean;
begin
  try
    exc.DisplayAlerts:=False;
    exc.WorkBooks.Close;
    exc.DisplayAlerts:=True;
    exc.ErrorCheckingOptions.BackgroundChecking:=True;
    exc.ErrorCheckingOptions.InconsistentFormula:=True;
    exc.ScreenUpdating:=True;
    exc.Application.quit;
    exc:=Unassigned;
    Result:=True;
  except
    Result:=False;
  end;
end;

function ShowExcel(var exc:OLEVariant):boolean;
begin
  result:=true;
  try
    exc.DisplayAlerts:=True;
    exc.ErrorCheckingOptions.BackgroundChecking:=True;
    exc.ErrorCheckingOptions.InconsistentFormula:=True;
    exc.ScreenUpdating:=True;
    exc.visible:=True;
  except
    result:=false;
  end;
end;

Exc:=Unassigned;

DevInfo:=VarArrayCreate([1,1,1,5],varVariant);
for j := 1 to 5 do
  DevInfo[3,j]:=DiaArr[i,j];
WS.Range[WS.Cells[1,n],WS.Cells[1,n+4]].Value:=DevInfo;

DevInfo:=VarArrayCreate([1,1,1,5],varVariant);
for j := 1 to 5 do
  DevInfo[1,j]:=DiaArr[i,j];
WS.Range[WS.Cells[1,n],WS.Cells[1,n+4]].Value:=DevInfo;

ShowExcel(excel);
excel:=Unassigned;

WS.Range[WS.Cells[1,n],WS.Cells[1,n+4]].Value:=DevInfo;

WS.Range['A'+inttostr(n)+':A'+inttostr(n+4)].Value:=DevInfo;

function xlRCtoA1(const ARow, ACol: Integer;
  RowAbsolute: Boolean = False;
  ColAbsolute: Boolean = False): String;
const
  A1 = Ord('A') - 1;  // номер "A" минус 1 (65 - 1 = 64)
  AZ = Ord('Z') - A1; // кол-во букв в англ. алфавите (90 - 64 = 26)
var
  t, m: Integer;
  S: String;
begin
  // номер колонки
  t := ACol div AZ; // целая часть
  m := (ACol mod AZ); // остаток?
  if m = 0 then
    Dec(t);
  if t > 0 then
    S := xlRCtoA1(0,t)
  else
    S := '';
  if m = 0 then
    t := AZ
  else
    t := m;
  S := S + Char(A1 + t);
  // весь адрес
  if ColAbsolute then S := '$' + S;
  if RowAbsolute then S := S + '$';
  if ARow>0 then
    S := S + IntToStr(ARow);
  Result := S;
end;

var
  XL: TExcelApplication;
begin
  // запускаем новый экземпляр Excel'я
  XL := TExcelApplication.Create(nil);
  try
    XL.ConnectKind := ckNewInstance;
    XL.Connect; // подключение
    XL.AutoQuit := True; // по умолчанию это свойство True только в unit ExcelXP
    XL.Visible[lcid] := True;
    // Тут нужно как-то отвязаться от Excel, иначе процесс Excel можно будет убить только через диспетчер задач.
    //XL.Disconnect закрывает excel

xlRange:=WS.Range[sAddress].Offset[6,0];
xlRange:=xlRange.Offset[0,3];

xlRange:=WS.Range[sAddress].Offset[6,3];

function ShowExcel(var exc:Variant):boolean;
begin
  result:=true;
  try
    exc.DisplayAlerts:=True;
    exc.ErrorCheckingOptions.BackgroundChecking:=True;
    exc.ErrorCheckingOptions.InconsistentFormula:=True;
    exc.ScreenUpdating:=True;
    exc.visible:=True;
  except
    result:=false;
  end;
end;

function StopExcel(var exc:Variant):boolean;
begin
  try
    exc.DisplayAlerts:=False;
    exc.WorkBooks.Close;
    exc.DisplayAlerts:=True;
    exc.ErrorCheckingOptions.BackgroundChecking:=True;
    exc.ErrorCheckingOptions.InconsistentFormula:=True;
    exc.ScreenUpdating:=True;
    exc.Application.quit;
    exc:=Unassigned;
    Result:=True;
  except
    Result:=False;
  end;
end;

ShowExcel(excel);
MessageDlg('Внимание!'+#13+'Для повторной обработки закройте полученный файл!',mtWarning,[mbOK],0);
excel:=Unassigned;

StopExcel(excel);