[fofka]

Вопрос простой. Проверяю на наличие офиса на компе, если нет офиса програма должна закрыватся. Вроде все просто, а не работает.
Подскажите, что не так делаю.

Procedure TForm1.FormCreate(Sender: TObject);
var
 Excel: variant;
begin
  try
    Excel := CreateOleObject('Excel.Application');///Проверка на наличие офиса
    StatusBar1.Panels[3].Text := 'Microsoft Office установлен на Вашем компьютере';
    Excel.Quit;
  except
   if MessageDlg('MS Excel отсутствует на компьютере!'+ #13#10 +'Работа не возможна', mtError, [mbOk], 0 ) = MrOk
    then Form1.Close;
  end;
  end;