* When the service startup failed, set the state to csStopped so that on

   Windows the system doesn't wait forever for the service to end.

git-svn-id: trunk@13284 -

packages/fcl-base/src/daemonapp.pp

@@ -1141,7 +1141,9 @@ begin
         CheckControlMessage(True);
       CheckControlMessage(False);
       end;
-    end;
+    end
+  else
+    FDaemon.Status:=csStopped;
 end;