From 1c8d79c57f9ac1194b28b626c2a870dc1a8fb3f5 Mon Sep 17 00:00:00 2001
From: joost <joost@cnoc.nl>
Date: Wed, 29 Apr 2009 13:52:54 +0000
Subject: [PATCH]  * On shutdown, always terminate the TDaemonThread, not only
 in case of an exception

git-svn-id: trunk@13059 -
---
 packages/fcl-base/src/daemonapp.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;