Как определить запущен ли Excel?

Данный пример ищет активный экземпляр Excel и делает его видимым

var
    ExcelApp : Variant;
begin
  try
    // Ищем запущеный экземплят Excel, если он не найден, вызывается исключение
    ExcelApp := GetActiveOleObject('Excel.Application');

    // Делаем его видимым
    ExcelApp.Visible := true;
  except
  end;