diff --git a/packages/fcl-base/src/daemonapp.pp b/packages/fcl-base/src/daemonapp.pp
index a13931ad79..bf42ce6387 100644
--- a/packages/fcl-base/src/daemonapp.pp
+++ b/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;