If CreateProcess(PChar(Progpfad + 'seti.exe'), '-stop_after_xfer', nil, nil, False, CREATE_NEW_PROCESS_GROUP, nil, PChar(Progpfad + '\WU' + IntToStr(i)), Startup, Prozess) then
        begin
          try
            WaitForSingleObject(Prozess.hProcess, INFINITE);
            Application.ProcessMessages;
          finally
            CloseHandle(Prozess.hProcess);
            CloseHandle(Prozess.hThread);
          end;