delphi - あらゆる例外のためのノンストップ サービス

Question

ユーザーによって停止された場合を除いて、サービスが何らかの理由で停止しないようにするにはどうすればよいですか。
私はこれを試しましたが、成功しませんでした。

実行時:

Count := 0;
while not Terminated do
begin
  Inc(Count);
  While Count >= SecBetweenRuns do
  Begin
    Try
      Count := 0;
      ...
    Except
      on E: exception do
      Begin
        JFCLogFile1.LogText := E.Message;
        Break;
      End;
    End;
  End;
  Sleep(1000);
  ServiceThread.ProcessRequests(False);
end;

例外が発生した場合、サービスは動作を停止し、手動で再起動する必要があります。
ユーザーが介入することなく、例外が発生したときにループを中断して最初からやり直したい。