try / except似乎没有捕获异常 – Delphi Service Application

我有一个用Delphi 2007编写的服务,我正在尝试捕获任何未知的异常.为on异常分配方法似乎不起作用(‘Forms.Application.OnException：= UnknownApplicationException’). “UnknownApplicationException”似乎没有被调用 – 我将此归因于应用程序中没有表单的事实,因此该方法实际上从未被分配.除此之外,我还尝试在计时器上创建一个异常(在注释掉’Forms.Application.OnException：= UnknownApplicationException’后,它不会干扰).在服务启动后60秒,计时器会触发：

procedure TProcessScheduler.Timer1Timer(Sender: TObject);    
begin    
  try    
    Raise Exception.Create('THIS GIG SUCKS');    
  except     
    LogEvent(Name,rsUNKNOWN_EXCEPTION,EVENTLOG_AUDIT_FAILURE,0);    
    ExitCode:=-1;    
    Halt;    
  end;     
end;

似乎永远不会捕获异常 – 服务启动并且在此计时器触发后60秒后,我听到Windows错误声音但没有看到任何错误对话框 – 也许这可能是由于应用程序是服务的事实？永远不会调用’Halt’并且应用程序继续运行(我假设它等待某人在它创建的不可见错误对话框上单击ok).有什么想法为什么“除外”下的代码没有被调用？提前致谢！ KP