* Patch from Steve Howe so daemon thread does not consume all CPU

git-svn-id: trunk@9267 -

packages/fcl-base/src/inc/daemonapp.pp

@@ -1137,7 +1137,10 @@ begin
     if not FDaemon.Execute then
       begin
       While Not Terminated do
+        begin
         CheckControlMessage(True);
+        Sleep(50);
+        end;
       CheckControlMessage(False);
       end;
     end;