[NumLock]

наоборот ничего хорошего
попробуй:

Код:

  try
    OutlookApp := GetActiveOleObject('Outlook.Application.14');
  except
    OutlookApp := CreateOleObject('Outlook.Application.14');
  end;

а лучше ветку создай ветку с именем Outlook.Application с содержимым = Outlook.Application.14. чтобы на всех компьютерах одинаково работало.