{ To automatically start a service after its installation use this code }
procedure TMyService.ServiceAfterInstall(Sender: TService);
var
 sm: TServiceManager;
begin
 sm := TServiceManager.Create;
 try
  if sm.Connect then
  if sm.OpenServiceConnection(self.name) then
  sm.StartService;
 finally
  sm.Free;
 end;
end;