服务不能启动 提示错误1053:服务并未及时响应启动或控制请求(100)

写了一个服务程序，想做成服务和应用的“两栖”程序，工程里是这么写的 if ParamCount <> 0 then begin SvcMgr.Application.Initialize; JHSer := TJHSer.CreateNew(SvcMgr.Application, 0); SvcMgr.Application.CreateForm(TFrm_Main, Frm_Main); SvcMgr.Application.Run; end else begin Forms.Application.ShowMainForm := False; Forms.Application.Initialize; Forms.Application.CreateForm(TFrm_Main, Frm_Main); Forms.Application.Run; end;服务启动类型设置的自动在服务管理器中启动服务时 提示错误1053:服务并未及时响应启动或控制请求在CSDN里问过了，没有人给出正确答案，问一下这里的富翁们，谁能帮我找出原因

看delphi的Scksvr源代码吧