Если открыт Excel, то возникает ошибка при сохранении

procedure TRiskForm.SaveButtonClick(Sender: TObject);
var
  i, j: Word;
begin
  try
  Excel := CreateOleObject('Excel.Application');
 
    Excel.Visible := false;
    Excel.Workbooks.Add;
    Excel.ActiveWorkbook.Worksheets[1];
 
  with ConditionOfBankStringGrid do
  begin
    for i := 0 to ColCount - 1 do
      for j := 0 to RowCount - 1 do
        Excel.Sheets[1].Cells[j + 1, i + 1] := Cells[i, j];
  end;
    Excel.Sheets[1].Cells[1, 7] := 'Итог:'; {Записываем процент РВКа}
    Excel.Sheets[1].Cells[1, 8] := ProbabilityLabel.Caption;
    Excel.DisplayAlerts := False; // Отключаем все предупреждения Excel
 
    Excel.WorkBooks[1].WorkSheets[1].SaveAs(GetExcelFileName);
    ShowMessage('Сохранено в файл "ConditionOfBank.xlsx"');
  finally
    Excel.Workbooks.Close;  // Закрываем рабочую книгу Excel
    Excel.Quit;             // Закрываем приложение Excel
    Excel := Unassigned;    // Чтобы Excel исчезал из процессов Диспетчера задач
  end;
end;

    ShowMessage('Для корректного сохранения закройте все окна Excel');
    if SaveDialog.Execute then begin // Если запустили окно сохранения, то...
    try
      { Ищем запущенный экземпляр Excel, если не найден, вызываем исключение }
      { Чтобы не было системной ошибки "Нет доступа" }
      Excel := GetActiveOleObject('Excel.Application');
      Excel.DisplayAlerts := False; // Отключаем предупреждение Excel о замене
    except
    end;
      Excel.ActiveWorkbook.SaveAs(SaveDialog.FileName);
      ShowMessage('Сохранено в файл:' + #10 + SaveDialog.FileName);
    end;

    try  
      Excel.ActiveWorkbook.SaveAs(SaveDialog.FileName);
      ShowMessage('Сохранено в файл:' + #10 + SaveDialog.FileName);
    except
      ShowMessage('Невозможно сохранить в этот файл, он занят или доступен только для чтения.'
      + #10 + 'Выберите другое имя');
    end;