Better for for checkcontrolmessage, based on Mattias Gaertner tip

git-svn-id: trunk@9268 -

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

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

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

@@ -112,6 +112,8 @@ end;
 
 procedure TDaemonThread.CheckControlMessage(WaitForMessage : Boolean);
 begin
+  If WaitForMessage then // Don't hog CPU.
+    Sleep(50);
 end;