启动服务问题，请高手们帮解决一下。 ( 积分: 100 )

function InstallService(lpszBinaryPathName, lpsServiceName, lpsDisplayName : PChar) :Boolean;
var
schSCManager, schService : THANDLE;
begin
schSCManager := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
Result := schSCManager <> 0;
if Result then begin
schService := CreateService(schSCManager, lpsServiceName, lpsDisplayName, SERVICE_ALL_ACCESS, SERVICE_WIN32_OWN_PROCESS or SERVICE_INTERACTIVE_PROCESS, SERVICE_AUTO_START, SERVICE_ERROR_NORMAL, lpszBinaryPathName, nil, nil, nil, nil, nil);
Result := schService <> 0;
if Result then
CloseServiceHandle(schService);
CloseServiceHandle(schSCManager);
end;
end;

ControlService(schService, SERVICE_CONTROL_CONTINUE, ssStatus);
用以上函数安装服务成功了，可是启动总是出错，为什么？
怎样解决？

报什么错?启动服务是
ControlService(schService, 0, ssStatus);