Переустановка службы Windows Inno Setup

Мне нужно создать установщик для службы Windows. Эта служба должна запускаться сразу после установки и также быть включенной сразу после входа в систему.

В настоящее время служба Windows устанавливается и запускается правильно сразу после установки. Однако мне нужно, чтобы она переустанавливалась, если пользователь снова запускает установщик для службы.

Проблема заключается в том, что я не могу остановить и удалить службу перед ее переустановкой, даже если установщик запускается от имени администратора.
Я получаю следующие ошибки

    [Setup]
AppName=my_service
AppVersion=1.1.0.1
DefaultDirName=C:\ws-my_service\driver   
DisableDirPage=yes
DisableProgramGroupPage=yes         
OutputDir=Output3
OutputBaseFilename=my_service
Compression=lzma2
SolidCompression=true

[Files]
Source: "C:\Users\Home\Desktop\my_service\my_service\bin\Release\net8.0\win-x64\publish\*"; DestDir: "{app}"; Flags: ignoreversion

[Run]
Filename: "{sys}\sc.exe"; Parameters: "create my_service binPath= ""{app}\my_service.exe"" start= auto"; Flags: runhidden waituntilterminated; Check: not IsServiceInstalled('ws_agent_admin');
Filename: "{sys}\sc.exe"; Parameters: "start my_service"; Flags: runhidden; Check: not IsServiceRunning('my_service');

[UninstallRun]
Filename: "{sys}\sc.exe"; Parameters: "stop my_service"; Flags: runhidden waituntilterminated; Check: IsServiceRunning('my_service'); RunOnceId: "StopService"
Filename: "{sys}\sc.exe"; Parameters: "delete my_service"; Flags: runhidden waituntilterminated; Check: IsServiceInstalled('my_service'); RunOnceId: "DeleteService"

[Code]
var
  TempLogFile: String;

function RunCommandAndLogOutput(Command, Params: String): Boolean;
var
  ErrorCode: Integer;
  Output: TStringList;
begin
  Result := Exec(Command, Params + ' > "' + TempLogFile + '" 2>&1', '', SW_HIDE, ewWaitUntilTerminated, ErrorCode);
  
  Output := TStringList.Create;
  try
    if FileExists(TempLogFile) then
    begin
      Output.LoadFromFile(TempLogFile);
      Log('Вывод команды "' + Command + ' ' + Params + '":');
      Log(Output.Text);
      DeleteFile(TempLogFile);
    end;
  finally
    Output.Free;
  end;
end;

function IsServiceInstalled(ServiceName: String): Boolean;
var
  ResultCode: Integer;
begin
  Log('Проверка, установлен ли сервис ' + ServiceName + '...');
  Result := Exec('{sys}\sc.exe', 'query ' + ServiceName, '', SW_HIDE, ewWaitUntilTerminated, ResultCode) and (ResultCode = 0);
end;

function IsServiceRunning(ServiceName: String): Boolean;
var
  ResultCode: Integer;
begin
  Log('Проверка, работает ли сервис ' + ServiceName + '...');
  Result := Exec('{sys}\sc.exe', 'query ' + ServiceName, '', SW_HIDE, ewWaitUntilTerminated, ResultCode) and (ResultCode = 0);
end;

function StopService(ServiceName: String): Boolean;
var
  Attempts: Integer;
begin
  Log('Попытка остановить сервис ' + ServiceName + '...');
  Result := RunCommandAndLogOutput('{sys}\sc.exe', 'stop ' + ServiceName);
  
  Attempts := 0;
  while (IsServiceRunning(ServiceName)) and (Attempts < 10) do // Ждем максимум 10 попыток (10*500мс)
  begin
    Log('Сервис ' + ServiceName + ' все еще работает. Ждем его остановки...');
    Sleep(500);
    Inc(Attempts);
  end;

  if IsServiceRunning(ServiceName) then
    Log('Не удалось остановить сервис ' + ServiceName + ' после ожидания.');
end;

function RemoveService(ServiceName: String): Boolean;
begin
  Log('Попытка удалить сервис ' + ServiceName + '...');
  Result := RunCommandAndLogOutput('{sys}\sc.exe', 'delete ' + ServiceName);
end;

function InitializeSetup(): Boolean;
begin
  TempLogFile := ExpandConstant('{tmp}\sc_output.log');
  Log('InitializeSetup: Проверка, нужно ли останавливать и удалять сервис.');
  
  if IsServiceInstalled('my_service') then
  begin
    if StopService('my_service') then
      RemoveService('my_service');
  end;
  
  Result := True;
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssPostInstall then
  begin
    Log('CurStepChanged: Запуск сервиса my_service после установки...');
    RunCommandAndLogOutput('{sys}\sc.exe', 'start my_service');
  end;
end;

в чем может быть проблема? как я могу это исправить?