* On shutdown, always terminate the TDaemonThread, not only in case of an exception

git-svn-id: trunk@13059 -

packages/fcl-base/src/daemonapp.pp

@@ -1220,7 +1220,7 @@ begin
   FDaemon.Status:=csStopPending;
   Try
     Result:=FDaemon.ShutDown;
-  except
+  finally
     FDaemon.Status:=csStopped;
     Terminate;
   end;