diff --git a/.github/ISSUE_TEMPLATE.md b/.github/ISSUE_TEMPLATE.md
new file mode 100644
index 0000000..8e71c95
--- /dev/null
+++ b/.github/ISSUE_TEMPLATE.md
@@ -0,0 +1,21 @@
+### What steps will reproduce the problem? ###
+
+
+
+### What is the expected output? What do you see instead? ###
+
+
+
+### What version of the product are you using. (Please use the latest version of bittorrent-tracker-editor and your torrent client) ###
+
+
+
+###  On what operating system? ###
+
+
+
+### Please provide any additional information below. ###
+
+
+
+### Add a modified sintel torrent files example to reproduce the issue. [Download from Github: sintel](https://github.com/GerryFerdinandus/bittorrent-tracker-editor/tree/master/test_torrent) ###
diff --git a/.github/actions/install_lazarus/action.yaml b/.github/actions/install_lazarus/action.yaml
new file mode 100644
index 0000000..f62e0c5
--- /dev/null
+++ b/.github/actions/install_lazarus/action.yaml
@@ -0,0 +1,101 @@
+# include this file in the cicd_windows.yaml, cicd_ubuntu.yaml, and cicd_macos.yaml like this:
+#    - name: Install Lazarus IDE
+#      uses: ./.github/actions/install_lazarus
+#      with:
+#        qt_version_ci: 6  # optional, only needed when building with qt5 or qt6
+
+
+# https://docs.github.com/en/actions/tutorials/create-actions/create-a-composite-action
+name: 'Install Lazaurus IDE'
+description: 'download and build lazbuild'
+
+inputs:
+  qt_version_ci:  # id of input
+    description: 'QT version'
+    required: false
+
+runs:
+  using: "composite"
+  steps:
+    - name: Install Lazarus IDE (Windows)
+      if: runner.os == 'Windows'
+      run: |
+        winget install lazarus --disable-interactivity --accept-source-agreements --silent
+        echo 'c:/lazarus' >> $GITHUB_PATH
+      shell: pwsh
+
+    - name: Make PATH also in bash available (Windows)
+      if: runner.os == 'Windows'
+      run: |
+        echo 'c:/lazarus' >> $GITHUB_PATH
+      shell: bash
+
+    - name: Install fpc (Linux)
+      if: runner.os == 'Linux'
+      run: |
+        sudo apt-get update
+        sudo apt-get install -y fpc
+      shell: bash
+
+    - name: Install dependency for gtk2
+      if: runner.os == 'Linux' && inputs.qt_version_ci == ''
+      run: sudo apt-get install -y libgtk2.0-dev
+      shell: bash
+
+    - name: Install dependency for qt5
+      if: runner.os == 'Linux' && inputs.qt_version_ci == '5'
+      run: sudo apt-get install -y libqt5x11extras5-dev
+      shell: bash
+
+    - name: Install dependency for qt6
+      if: runner.os == 'Linux' && inputs.qt_version_ci == '6'
+      run: sudo apt-get install -y qt6-base-dev
+      shell: bash
+
+    - name: Install Free Pascal Compiler (FPC) multi arch version for macOS x86_64 and aarch64 (macOS)
+      if: runner.os == 'macOS'
+      run: brew install fpc
+      shell: bash      
+
+    - name: Download Lazarus source code into temp folder (Linux and macOS)
+      if: runner.os != 'Windows'
+      env:
+        # Linux and macOS need to build lazbuild from Lazarus source code.
+        # Copied the latest Lazarus source code from: https://sourceforge.net/projects/lazarus/files/Lazarus%20Zip%20_%20GZip/
+        LAZARUS_URL_TAR_GZ: "https://github.com/GerryFerdinandus/bittorrent-tracker-editor/releases/download/V1.32.0/lazarus.tar.gz"
+        RUNNER_TEMP: ${{ runner.temp }}
+      run: |
+        #Download lazarus source code. Directory 'lazarus' will be created in the temp folder.
+        echo ${RUNNER_TEMP}
+        cd ${RUNNER_TEMP}
+        curl -L -O ${{ env.LAZARUS_URL_TAR_GZ }}
+        tar -xzf *.tar.gz
+      shell: bash      
+      
+    - name: Build lazbuild from Lazarus source code (Linux and macOS)
+      if: runner.os != 'Windows'
+      env:
+        RUNNER_TEMP: ${{ runner.temp }}
+      run: |
+        # make lazbuild and put the link with extra parameter in the temp folder.
+        LAZARUS_DIR=${RUNNER_TEMP}/lazarus
+        cd "$LAZARUS_DIR"
+        make lazbuild
+        echo "$LAZARUS_DIR/lazbuild --primary-config-path=$LAZARUS_DIR --lazarusdir=$LAZARUS_DIR \$*" > ${RUNNER_TEMP}/lazbuild
+        chmod +x ${RUNNER_TEMP}/lazbuild
+        # Add lazbuild to the PATH variable.
+        echo ${RUNNER_TEMP} >> $GITHUB_PATH
+      shell: bash
+
+    - name: Build libQTpas.so (qt5 or qt6)
+      if: runner.os == 'Linux' && inputs.qt_version_ci != ''
+      env:
+        RUNNER_TEMP: ${{ runner.temp }}      
+      run: |
+        cd "${RUNNER_TEMP}/lazarus/lcl/interfaces/qt${{ inputs.qt_version_ci }}/cbindings/"
+        /usr/lib/qt${{ inputs.qt_version_ci }}/bin/qmake
+        make -j$(nproc)
+        sudo make install
+      shell: bash
+
+
diff --git a/.github/dependabot.yml b/.github/dependabot.yml
new file mode 100644
index 0000000..5b52009
--- /dev/null
+++ b/.github/dependabot.yml
@@ -0,0 +1,14 @@
+# Enable version updates for GitHub Actions at cron schedule every 6 months
+# Can be manually triggered via menu: Insights > Dependency graph > "Recent update jobs" -> "Check for updates"
+
+version: 2
+updates:
+  - package-ecosystem: "github-actions"
+    directory: "/"
+    schedule:
+      interval: "cron"
+      cronjob: "0 0 1 1/6 *"
+    commit-message:
+      prefix: "chore"
+      include: "scope"
+    open-pull-requests-limit: 5
diff --git a/.github/workflows/cicd_macos.yaml b/.github/workflows/cicd_macos.yaml
new file mode 100644
index 0000000..92b4ed2
--- /dev/null
+++ b/.github/workflows/cicd_macos.yaml
@@ -0,0 +1,311 @@
+# CI/CD workflow for macOS systems to build bittorrent tracker editor app
+# Uses GitHub Actions macOS runners to build the app for both Apple silicon (aarch64) and Intel Mac (x86_64)
+# Then create a Universal binary using lipo tool.
+# Finally create a dmg file for end user distribution.
+# The build also codesign and notarize the dmg file if the required Apple developer certificate
+# and notarization credentials are present in the GitHub secrets.
+# The build is triggered on push, pull request, manual workflow dispatch and every 6 months cron job.
+#
+# macos-15-intel runner is used to build the x86_64 version.
+# macos-latest runner is used to build the aarch64 version and also to create the Universal binary dmg file.
+# The build uses Free Pascal Compiler (FPC) and Lazarus IDE to build the app.
+#
+# macos-15-intel runner is the last macOS runner that supports Intel architecture.
+# Newer macOS runners only support Apple silicon (aarch64) architecture.
+# Keep supporting Intel architecture build while there runners are still available.
+#
+# Must use macOS ditto tool to create zip files.
+# Using zip command creates zip files that missing some metadata required for macOS apps.
+
+
+name: CI/CD on macOS systems.
+
+permissions:
+  contents: write
+
+on:
+    push:
+    pull_request:
+    workflow_dispatch:
+    # Automatic cron build every 6 months to check if everything still works.
+    schedule:
+    - cron: "0 0 1 1/6 *"
+
+env:
+  MACOS_APP: enduser/trackereditor.app
+  PROGRAM_NAME_WITH_PATH: 'enduser/trackereditor'
+  BUILD_WITH_CERTIFICATE: ${{ secrets.PROD_MACOS_CERTIFICATE_NAME }}
+  PROJECT_LPI: source/project/tracker_editor/trackereditor.lpi
+  RELEASE_DMG_FILE: trackereditor_macOS_notarized_universal_binary.dmg
+
+jobs:
+  build:
+    timeout-minutes: 60
+
+    strategy:
+      # Set fail-fast to false to ensure that feedback is delivered for all matrix combinations.
+      fail-fast: false
+
+      # Set up an include to perform the following build configurations.
+      matrix:
+        include:
+          - BUILD_TARGET: build_aarch64
+            ARCH: aarch64
+            RUNS_ON: macos-latest
+
+          - BUILD_TARGET: build_x86_64
+            ARCH: x86_64
+            RUNS_ON: macos-15-intel
+
+    name: ${{ matrix.BUILD_TARGET }}
+    runs-on: ${{ matrix.RUNS_ON }}
+
+    steps:
+    - uses: actions/checkout@v6
+      with:
+        submodules: true
+
+    - name: Install Lazarus IDE
+      uses: ./.github/actions/install_lazarus
+
+    - name: Build trackereditor app for Apple (${{ matrix.ARCH }})
+      run: |
+        lazbuild --build-all --build-mode=Release --widgetset=cocoa --cpu=${{ matrix.ARCH }} ${{ env.PROJECT_LPI }}
+      shell: bash
+
+    - name: Test App SSL connection
+      run: open "${{ env.PROGRAM_NAME_WITH_PATH }}" --args -TEST_SSL
+      shell: bash
+
+    - name: Zip the macOS .app bundle for artifact upload
+      if: matrix.ARCH == 'aarch64'
+      run: ditto -c -k enduser/trackereditor.app enduser/trackereditor_app.zip
+      shell: bash
+
+    - name: Rename built -aarch64 binary for artifact upload
+      run: |
+        mv ${{ env.PROGRAM_NAME_WITH_PATH }} ${{ env.PROGRAM_NAME_WITH_PATH }}-${{ matrix.ARCH }}
+        ditto -c -k ${{ env.PROGRAM_NAME_WITH_PATH }}-${{ matrix.ARCH }} ${{ env.PROGRAM_NAME_WITH_PATH }}-${{ matrix.ARCH }}.zip
+      shell: bash
+
+    - name: Upload Artifact.
+      uses: actions/upload-artifact@v6
+      with:
+        name: artifact-${{ matrix.ARCH }}
+        # Include both the zipped universal app bundle and the aarch64 binary zip
+        path: enduser/*.zip
+        if-no-files-found: error
+
+  create_universal_macOS_binary: # Create Universal binary from aarch64 and x86_64 builds
+    needs: build
+    runs-on: macos-latest
+    timeout-minutes: 60
+
+    steps:
+    - uses: actions/checkout@v6
+      with:
+        sparse-checkout: metainfo
+
+    - name: Install create-dmg tool
+      run: brew install create-dmg
+      shell: bash
+
+    - name: Download build artifacts from previous jobs
+      uses: actions/download-artifact@v7
+      with:
+        path: enduser/
+        merge-multiple: true
+
+    - name: Display the downloaded artifact files
+      run: ls -R enduser/
+      shell: bash
+
+    - name: Unzip all the artifact files
+      run: |
+        ditto -xk enduser/trackereditor_app.zip enduser/trackereditor.app
+        ditto -xk ${{ env.PROGRAM_NAME_WITH_PATH }}-x86_64.zip enduser/
+        ditto -xk ${{ env.PROGRAM_NAME_WITH_PATH }}-aarch64.zip enduser/
+        # Remove the zip files after extraction
+        rm -f enduser/*.zip
+      shell: bash
+
+    - name: Display the downloaded artifact files after unzip
+      run: ls -R enduser/
+      shell: bash
+
+    - name: Set correct version number in macOS .app bundle Info.plist from metainfo xml file
+      env:
+        METAINFO_FILE: metainfo/io.github.gerryferdinandus.bittorrent-tracker-editor.metainfo.xml
+      run: |
+       TRACKER_EDITOR_VERSION=$(xmllint --xpath "string(/component/releases/release[1]/@version)" $METAINFO_FILE)
+       echo Program version: $TRACKER_EDITOR_VERSION
+       plutil -replace CFBundleShortVersionString -string $TRACKER_EDITOR_VERSION ${{ env.MACOS_APP }}/Contents/Info.plist
+      shell: bash
+
+    - name: Create and set app icon in macOS .app bundle
+      env:
+        ICON_FILE: 'metainfo/io.github.gerryferdinandus.bittorrent-tracker-editor.png'
+      run: |
+
+        # ------ Create icon set and move it into the app
+        iconset_folder="temp_folder.iconset"
+        rm -rf "${iconset_folder}"
+        mkdir -p "${iconset_folder}"
+
+        for s in 16 32 128 256 512; do
+          d=$(($s*2))
+          sips -Z $s $ICON_FILE --out "${iconset_folder}/icon_${s}x$s.png"
+          sips -Z $d $ICON_FILE --out "${iconset_folder}/icon_${s}x$s@2x.png"
+        done
+
+        # create .icns icon file
+        iconutil -c icns "${iconset_folder}" -o "iconfile.icns"
+        rm -r "${iconset_folder}"
+
+        # move icon file to the app
+        mv -f "iconfile.icns"  "${{ env.MACOS_APP }}/Contents/Resources"
+
+        # add icon to plist xml file CFBundleIconFile = "iconfile"
+        plutil -insert CFBundleIconFile -string "iconfile" "${{ env.MACOS_APP }}/Contents/Info.plist"
+      shell: bash
+
+    - name: Create a Universal macOS binary from aarch64 and x86_64
+      run: |
+        # Create Universal binary using lipo tool
+        lipo -create -output ${{ env.PROGRAM_NAME_WITH_PATH }} ${{ env.PROGRAM_NAME_WITH_PATH }}-aarch64 ${{ env.PROGRAM_NAME_WITH_PATH }}-x86_64
+
+        # Remove the previous architecture specific binaries
+        rm -f ${{ env.PROGRAM_NAME_WITH_PATH }}-*
+      shell: bash
+
+    - name: Replace the macOS .app bundle binary with the Universal binary
+      run: |
+        PROGRAM_NAME_ONLY=$(basename -- "${{ env.PROGRAM_NAME_WITH_PATH }}")
+        # remove the previous app (symbolic link)
+        rm -f "${{ env.MACOS_APP }}/Contents/MacOS/${PROGRAM_NAME_ONLY}"
+        # copy the program to the app version.
+        mv -f "${{ env.PROGRAM_NAME_WITH_PATH }}" "${{ env.MACOS_APP }}/Contents/MacOS"
+        ls -l "${{ env.MACOS_APP }}/Contents/MacOS/"
+      shell: bash
+
+    - name: Display the enduser/ folder contents
+      run: ls -R enduser/
+      shell: bash
+
+    - name: Verify the Universal binary architectures
+      run: |
+        lipo -archs "${{ env.MACOS_APP }}"/Contents/MacOS/trackereditor
+        lipo -archs "${{ env.MACOS_APP }}"/Contents/MacOS/trackereditor | grep -Fq x86_64
+        lipo -archs "${{ env.MACOS_APP }}"/Contents/MacOS/trackereditor | grep -Fq arm64
+      shell: bash
+
+    - name: Test App SSL connection
+      run: open "${{ env.MACOS_APP }}" --args -TEST_SSL
+      shell: bash
+
+    - name: Codesign macOS app bundle. If certificate is present.
+      if: ${{ env.BUILD_WITH_CERTIFICATE != '' }}
+      # This macOS Codesign step is copied from:
+      # https://federicoterzi.com/blog/automatic-code-signing-and-notarization-for-macos-apps-using-github-actions/
+      # This is a bit different from the previous version for Travis-CI build system to build bittorrent tracker editor
+      # More info https://developer.apple.com/forums/thread/128166
+      env:
+        MACOS_CERTIFICATE: ${{ secrets.PROD_MACOS_CERTIFICATE }}
+        MACOS_CERTIFICATE_PWD: ${{ secrets.PROD_MACOS_CERTIFICATE_PWD }}
+        MACOS_CERTIFICATE_NAME: ${{ secrets.PROD_MACOS_CERTIFICATE_NAME }}
+        MACOS_CI_KEYCHAIN_PWD: ${{ secrets.PROD_MACOS_CI_KEYCHAIN_PWD }}
+      run: |
+        # Turn our base64-encoded certificate back to a regular .p12 file
+        echo $MACOS_CERTIFICATE | base64 --decode > certificate.p12
+
+        # We need to create a new keychain, otherwise using the certificate will prompt
+        # with a UI dialog asking for the certificate password, which we can't
+        # use in a headless CI environment
+
+        security create-keychain -p "$MACOS_CI_KEYCHAIN_PWD" build.keychain
+        security default-keychain -s build.keychain
+        security unlock-keychain -p "$MACOS_CI_KEYCHAIN_PWD" build.keychain
+        security import certificate.p12 -k build.keychain -P "$MACOS_CERTIFICATE_PWD" -T /usr/bin/codesign
+        security set-key-partition-list -S apple-tool:,apple:,codesign: -s -k "$MACOS_CI_KEYCHAIN_PWD" build.keychain
+
+        # sign the app. -sign is the developer cetificate ID
+        /usr/bin/codesign --timestamp --force --options runtime --sign "$MACOS_CERTIFICATE_NAME" "${{ env.MACOS_APP }}"
+      shell: bash
+
+    - name: Display the enduser/ folder contents
+      run: ls -R enduser/
+      shell: bash
+
+    - name: Create dmg file from the enduser/ folder
+      run: |
+        # Build dmg image. https://github.com/create-dmg/create-dmg
+        create-dmg \
+          --volname "bittorrent-tracker-editor" \
+          --window-pos 200 120 \
+          --window-size 800 400 \
+          --icon "trackereditor.app" 200 190 \
+          --app-drop-link 600 185 \
+          ${{ env.RELEASE_DMG_FILE }} \
+          "./enduser"
+      shell: bash
+
+    - name: Codesign dmg file. If certificate is present.
+      if: ${{ env.BUILD_WITH_CERTIFICATE != '' }}
+      env:
+        MACOS_CERTIFICATE_NAME: ${{ secrets.PROD_MACOS_CERTIFICATE_NAME }}
+      run: |
+        /usr/bin/codesign --timestamp --force --options runtime --sign "$MACOS_CERTIFICATE_NAME" "${{ env.RELEASE_DMG_FILE }}"
+      shell: bash
+
+    - name: Notarize macOS DMG bundle. If certificate is present.
+      if: ${{ env.BUILD_WITH_CERTIFICATE != '' }}
+      env:
+        PROD_MACOS_NOTARIZATION_APPLE_ID: ${{ secrets.PROD_MACOS_NOTARIZATION_APPLE_ID }}
+        PROD_MACOS_NOTARIZATION_TEAM_ID: ${{ secrets.PROD_MACOS_NOTARIZATION_TEAM_ID }}
+        PROD_MACOS_NOTARIZATION_PWD: ${{ secrets.PROD_MACOS_NOTARIZATION_PWD }}
+      run: |
+        # Store the notarization credentials so that we can prevent a UI password dialog
+        # from blocking the CI
+
+        echo "Create keychain profile"
+        xcrun notarytool store-credentials "notarytool-profile" --apple-id "$PROD_MACOS_NOTARIZATION_APPLE_ID" --team-id "$PROD_MACOS_NOTARIZATION_TEAM_ID" --password "$PROD_MACOS_NOTARIZATION_PWD"
+
+        # We can't notarize an app bundle directly, but we need to compress it as an archive.
+        # Therefore, we create a zip file containing our app bundle, so that we can send it to the
+        # notarization service
+
+        echo "Creating temp notarization archive"
+        ditto -c -k --keepParent "${{ env.RELEASE_DMG_FILE }}" "notarization.zip"
+
+        # Here we send the notarization request to the Apple's Notarization service, waiting for the result.
+        # This typically takes a few seconds inside a CI environment, but it might take more depending on the App
+        # characteristics. Visit the Notarization docs for more information and strategies on how to optimize it if
+        # you're curious
+
+        echo "Notarize app"
+        xcrun notarytool submit "notarization.zip" --keychain-profile "notarytool-profile" --wait
+
+        # Finally, we need to "attach the staple" to our executable, which will allow our app to be
+        # validated by macOS even when an internet connection is not available.
+        echo "Attach staple"
+        xcrun stapler staple "${{ env.RELEASE_DMG_FILE }}"
+      shell: bash
+
+    - name: Use diferent .dmg file name for non signed/notarize version
+      if: ${{ env.BUILD_WITH_CERTIFICATE == '' }}
+      run: mv ${{ env.RELEASE_DMG_FILE }} trackereditor_macOS_UNSIGNED_universal_binary.dmg
+      shell: bash
+
+    - name: Upload Artifact. Signed/Notarize is optional.
+      uses: actions/upload-artifact@v6
+      with:
+        name: artifact-${{ runner.os }}
+        path: "*.dmg"
+        compression-level: 0 # no compression. Content is already a zip file
+        if-no-files-found: error
+
+    - name: Notarize file release to end user. If certificate is present.
+      uses: softprops/action-gh-release@v2
+      if: startsWith(github.ref, 'refs/tags/') && (env.BUILD_WITH_CERTIFICATE != '')
+      with:
+        files: ${{ env.RELEASE_DMG_FILE }}
diff --git a/.github/workflows/cicd_ubuntu.yaml b/.github/workflows/cicd_ubuntu.yaml
new file mode 100644
index 0000000..82de8e1
--- /dev/null
+++ b/.github/workflows/cicd_ubuntu.yaml
@@ -0,0 +1,153 @@
+name: CI/CD on Linux systems.
+
+permissions:
+  contents: write
+
+on:
+    push:
+    pull_request:
+    workflow_dispatch:
+    # Automatic cron build every 6 months to check if everything still works.
+    schedule:
+    - cron: "0 0 1 1/6 *"
+
+jobs:
+  build:
+    timeout-minutes: 60
+
+    strategy:
+      # Set fail-fast to false to ensure that feedback is delivered for all matrix combinations.
+      fail-fast: false
+
+      # Set up an include to perform the following build configurations.
+      matrix:
+        include:
+          - BUILD_TARGET: gtk2_amd64
+            RELEASE_FILE_NAME: trackereditor_linux_amd64_gtk2.zip
+            LAZ_OPT: --widgetset=gtk2
+            RUNS_ON: ubuntu-24.04
+
+          - BUILD_TARGET: qt5_amd64
+            RELEASE_FILE_NAME: trackereditor_linux_amd64_qt5.zip
+            LAZ_OPT: --widgetset=qt5
+            QT_VERSION_CI: '5'
+            RUNS_ON: ubuntu-24.04
+
+          - BUILD_TARGET: qt6_amd64
+            RELEASE_FILE_NAME: trackereditor_linux_amd64_qt6.zip
+            LAZ_OPT: --widgetset=qt6
+            QT_VERSION_CI: '6'
+            RUNS_ON: ubuntu-24.04
+
+          - BUILD_TARGET: AppImage_amd64
+            RELEASE_FILE_NAME: trackereditor_linux_amd64_qt6.AppImage
+            LAZ_OPT: --widgetset=qt6
+            QT_VERSION_CI: '6'
+            LINUX_DEPLOY_FILE_CPU: x86_64
+            RUNS_ON: ubuntu-22.04
+
+          - BUILD_TARGET: AppImage_arm64
+            RELEASE_FILE_NAME: trackereditor_linux_arm64_qt6.AppImage
+            LAZ_OPT: --widgetset=qt6
+            QT_VERSION_CI: '6'
+            LINUX_DEPLOY_FILE_CPU: aarch64
+            RUNS_ON: ubuntu-22.04-arm
+
+    name: ${{ matrix.BUILD_TARGET }}
+    runs-on: ${{ matrix.RUNS_ON }}
+
+    steps:
+    - uses: actions/checkout@v6
+      with:
+        submodules: true
+
+    - name: Install Lazarus IDE
+      uses: ./.github/actions/install_lazarus
+      with:
+        qt_version_ci: ${{ matrix.QT_VERSION_CI }}
+
+    - name: Install dependency for all build
+      run: |
+        sudo apt-get update
+        sudo apt-get install -y xvfb
+      shell: bash
+
+    - name: Install dependency for AppImage
+      if: matrix.BUILD_TARGET == 'AppImage_amd64' || matrix.BUILD_TARGET == 'AppImage_arm64'
+      run: |
+        # Add wayland plugin and platform theme
+        sudo apt-get install -y fuse qt6-wayland qt6-xdgdesktopportal-platformtheme qt6-gtk-platformtheme
+        # Download/Install AppImage tools
+        curl -L -O  https://github.com/linuxdeploy/linuxdeploy/releases/download/continuous/linuxdeploy-${{ matrix.LINUX_DEPLOY_FILE_CPU }}.AppImage
+        curl -L -O  https://github.com/linuxdeploy/linuxdeploy-plugin-qt/releases/download/continuous/linuxdeploy-plugin-qt-${{ matrix.LINUX_DEPLOY_FILE_CPU }}.AppImage
+        curl -L -O  https://github.com/linuxdeploy/linuxdeploy-plugin-appimage/releases/download/continuous/linuxdeploy-plugin-appimage-${{ matrix.LINUX_DEPLOY_FILE_CPU }}.AppImage
+        chmod +x linuxdeploy-*.AppImage
+      shell: bash
+
+    - name: Build trackereditor
+      # Build trackereditor project (Release mode)
+      run: lazbuild --build-all --build-mode=Release ${{ matrix.LAZ_OPT }} source/project/tracker_editor/trackereditor.lpi
+      shell: bash
+
+    - name: Test if OpenSSL works on Linux CI
+      run: xvfb-run --auto-servernum enduser/trackereditor -TEST_SSL
+      shell: bash
+
+    - name: Copy libQtpas.so before releasing the Qt5/Qt6 zip file format.
+      if: matrix.BUILD_TARGET == 'qt5_amd64' || matrix.BUILD_TARGET == 'qt6_amd64'
+      run: |
+        cp -av /usr/lib/*/libQt?Pas.* ${{ github.workspace }}/enduser
+        cat <<EOF > ${{ github.workspace }}/enduser/missing_libQtPas.so.txt
+        Start program with:
+        env LD_LIBRARY_PATH=. ./trackereditor
+
+        This uses libQtpas.so, which is necessary for this program.
+        Some Linux OS stores may also offer this libQtpas.so
+        https://archlinux.org/packages/extra/x86_64/qt5pas/
+        https://archlinux.org/packages/extra/x86_64/qt6pas/
+        EOF
+      shell: bash
+
+    - name: Create a gtk2 or Qt5/Qt6 release in zip file format.
+      if: matrix.BUILD_TARGET != 'AppImage_amd64'
+      run: zip -j ${{ matrix.RELEASE_FILE_NAME }} enduser/*.txt enduser/libQt* enduser/trackereditor
+      shell: bash
+
+    - name: Create AppImage
+      if: matrix.BUILD_TARGET == 'AppImage_amd64' || matrix.BUILD_TARGET == 'AppImage_arm64'
+      # LDAI_NO_APPSTREAM=1: skip checking AppStream metadata for issues
+      env:
+        LDAI_NO_APPSTREAM: 1
+        LDAI_OUTPUT: ${{ matrix.RELEASE_FILE_NAME }}
+        QMAKE: /usr/lib/qt${{ matrix.QT_VERSION_CI }}/bin/qmake
+        EXTRA_QT_MODULES: waylandcompositor
+        EXTRA_PLATFORM_PLUGINS: libqwayland-generic.so;libqwayland-egl.so
+        DEPLOY_PLATFORM_THEMES: true
+      run:  |
+        ./linuxdeploy-${{ matrix.LINUX_DEPLOY_FILE_CPU }}.AppImage \
+          --output appimage \
+          --appdir temp_appdir \
+          --plugin qt \
+          --executable enduser/trackereditor \
+          --desktop-file metainfo/io.github.gerryferdinandus.bittorrent-tracker-editor.desktop \
+          --icon-file metainfo/io.github.gerryferdinandus.bittorrent-tracker-editor.png
+      shell: bash
+
+    - name: Test AppImage
+      if: matrix.BUILD_TARGET == 'AppImage_amd64'
+      run: xvfb-run --auto-servernum ./${{ matrix.RELEASE_FILE_NAME }} -TEST_SSL
+      shell: bash
+
+    - name: Upload Artifact
+      uses: actions/upload-artifact@v6
+      with:
+        name: artifact-${{ matrix.RELEASE_FILE_NAME }}
+        path: ${{ matrix.RELEASE_FILE_NAME }}
+        compression-level: 0 # no compression. Content is already a compress file
+        if-no-files-found: error
+
+    - name: File release to end user
+      uses: softprops/action-gh-release@v2
+      if: startsWith(github.ref, 'refs/tags/')
+      with:
+        files: ${{ matrix.RELEASE_FILE_NAME }}
diff --git a/.github/workflows/cicd_windows.yaml b/.github/workflows/cicd_windows.yaml
new file mode 100644
index 0000000..05a2fba
--- /dev/null
+++ b/.github/workflows/cicd_windows.yaml
@@ -0,0 +1,80 @@
+name: CI/CD on Windows systems.
+
+permissions:
+  contents: write
+
+on:
+    push:
+    pull_request:
+    workflow_dispatch:
+    # Automatic cron build every 6 months to check if everything still works.
+    schedule:
+    - cron: "0 0 1 1/6 *"
+
+jobs:
+  build:
+    runs-on: windows-latest
+    timeout-minutes: 60
+    env:
+      RELEASE_ZIP_FILE: trackereditor_windows_amd64.zip
+      LAZ_OPT:
+
+    steps:
+    - uses: actions/checkout@v6
+      with:
+        submodules: true
+
+    - name: Install Lazarus IDE
+      uses: ./.github/actions/install_lazarus
+
+    - name: Download OpenSSL *.dll
+      run:  |
+          # Need OpenSSL *.dll to download updated trackers from the internet.
+          # https://wiki.overbyte.eu/wiki/index.php/ICS_Download#Download_OpenSSL_Binaries
+          curl -L -O --output-dir enduser https://github.com/GerryFerdinandus/bittorrent-tracker-editor/releases/download/V1.32.0/libssl-3-x64.dll
+          curl -L -O --output-dir enduser https://github.com/GerryFerdinandus/bittorrent-tracker-editor/releases/download/V1.32.0/libcrypto-3-x64.dll
+      shell: bash
+
+    - name: Build Release version
+      # Build trackereditor project (Release mode)
+      run: lazbuild --build-all --build-mode=Release ${{ env.LAZ_OPT }} source/project/tracker_editor/trackereditor.lpi
+      shell: bash
+
+    - name: Build Unit Test on Windows
+      # Build unit test project (Debug mode)
+      run: lazbuild --build-all --build-mode=Debug ${{ env.LAZ_OPT }} source/project/unit_test/tracker_editor_test.lpi
+      shell: bash
+
+    - name: Run Unit Test on Windows
+      # Also remove all the extra file created by test.
+      # We do not what it in the ZIP release files.
+      # Undo all changes made by testing.
+      run:  |
+        set -e
+        enduser/test_trackereditor -a --format=plain
+        set +e
+
+        # remove file created by unit test
+        rm -f enduser/console_log.txt
+        rm -f enduser/export_trackers.txt
+        git reset --hard
+      shell: bash
+
+    - name: Create a zip file for Windows release.
+      run: |
+        Compress-Archive -Path enduser\*.txt, enduser\trackereditor.exe, enduser\*.dll -DestinationPath $Env:RELEASE_ZIP_FILE
+      shell: pwsh
+
+    - name: Upload Artifact
+      uses: actions/upload-artifact@v6
+      with:
+        name: artifact-${{ runner.os }}
+        path: ${{ env.RELEASE_ZIP_FILE }}
+        compression-level: 0 # no compression. Content is already a zip file
+        if-no-files-found: error
+
+    - name: File release to end user
+      uses: softprops/action-gh-release@v2
+      if: startsWith(github.ref, 'refs/tags/')
+      with:
+        files: ${{ env.RELEASE_ZIP_FILE }}
diff --git a/.github/workflows/snap.yml b/.github/workflows/snap.yml
new file mode 100644
index 0000000..2a77953
--- /dev/null
+++ b/.github/workflows/snap.yml
@@ -0,0 +1,28 @@
+name: Test build Ubuntu snap on Linux amd64
+
+on:
+    push:
+    pull_request:
+    workflow_dispatch:
+    # Automatic cron build every 6 months to check if everything still works.
+    schedule:
+    - cron: "0 0 1 1/6 *"
+
+jobs:
+  build:
+    runs-on: ubuntu-latest
+    timeout-minutes: 60
+    steps:
+    - uses: actions/checkout@v6
+      with:
+        submodules: true
+
+    - uses: snapcore/action-build@v1
+
+    - name: Upload Artifact
+      uses: actions/upload-artifact@v6
+      with:
+        name: artifact-snap
+        path: "*.snap"
+        compression-level: 0 # no compression. Content is already a zip file
+        if-no-files-found: error
diff --git a/.gitignore b/.gitignore
index 29ff769..1a1906f 100644
--- a/.gitignore
+++ b/.gitignore
@@ -1,3 +1,11 @@
-/export_trackers.txt
-/console_log.txt
+# ignore possible temporary file added in the root 
 /*.txt
+
+# ignore bakup files
+*.bak
+
+# folders generated by compiler. Should always be ignored.
+/lib
+
+#items in these folder should be added explicit
+/enduser
diff --git a/.gitmodules b/.gitmodules
new file mode 100644
index 0000000..adcb0d7
--- /dev/null
+++ b/.gitmodules
@@ -0,0 +1,3 @@
+[submodule "submodule/dcpcrypt"]
+	path = submodule/dcpcrypt
+	url = https://git.code.sf.net/p/lazarus-ccr/dcpcrypt
diff --git a/README.md b/README.md
index b982328..98779fe 100644
--- a/README.md
+++ b/README.md
@@ -1,73 +1,130 @@
 **bittorrent-tracker-editor** will add/remove bittorrent tracker from the torrent file(s).
-This software works on Windows XP SP3, Windows 7+
+This software works on Windows 7+, macOS and Linux.
 
 ---
 
+## Software latest release: ##
+[![GitHub Latest release](https://img.shields.io/github/release/GerryFerdinandus/bittorrent-tracker-editor/all.svg)](https://github.com/GerryFerdinandus/bittorrent-tracker-editor/releases)
+[![GitHub commits since latest release (by SemVer including pre-releases)](https://img.shields.io/github/commits-since/gerryferdinandus/bittorrent-tracker-editor/latest)](https://github.com/GerryFerdinandus/bittorrent-tracker-editor/commits/main)
+---
+
+## Build Status: ##
+Continuous integration|Status| Generate an executable file for the operating system| Download link
+------------|---------|---------|----------
+GitHub Actions |[![GitHub Actions Workflow Status](https://img.shields.io/github/actions/workflow/status/gerryferdinandus/bittorrent-tracker-editor/cicd_ubuntu.yaml?label=Ubuntu)](https://github.com/GerryFerdinandus/bittorrent-tracker-editor/actions/workflows/cicd_ubuntu.yaml)[![GitHub Actions Workflow Status](https://img.shields.io/github/actions/workflow/status/gerryferdinandus/bittorrent-tracker-editor/cicd_windows.yaml?label=Windows)](https://github.com/GerryFerdinandus/bittorrent-tracker-editor/actions/workflows/cicd_windows.yaml)[![GitHub Actions Workflow Status](https://img.shields.io/github/actions/workflow/status/gerryferdinandus/bittorrent-tracker-editor/cicd_macos.yaml?label=macOS)](https://github.com/GerryFerdinandus/bittorrent-tracker-editor/actions/workflows/cicd_macos.yaml)|Linux(amd64), Windows(amd64) and macOS(Universal)|[![GitHub Latest release](https://img.shields.io/github/release/GerryFerdinandus/bittorrent-tracker-editor/all.svg)](https://github.com/GerryFerdinandus/bittorrent-tracker-editor/releases)
+GitHub Actions (Ubuntu snap) |[![GitHub Workflow Status (with event)](https://img.shields.io/github/actions/workflow/status/gerryferdinandus/bittorrent-tracker-editor/snap.yml)](https://github.com/GerryFerdinandus/bittorrent-tracker-editor/actions/workflows/snap.yml)|Linux (amd64 and arm64)|[![Get it from the Snap Store](https://snapcraft.io/static/images/badges/en/snap-store-white.svg)](https://snapcraft.io/bittorrent-tracker-editor)
+Flathub build server||Linux (amd64 and arm64)|<a href='https://flathub.org/apps/io.github.gerryferdinandus.bittorrent-tracker-editor'><img width='180' alt='Download on Flathub' src='https://flathub.org/assets/badges/flathub-badge-i-en.svg'/></a>
+---
+
 ## Warning: ##
-There is no backup function in this software. Used it at your own risk. Bittorrent work fine without this program. You probably don't need this software.
+There is no backup function in this software. Use it at your own risk. Bittorrent works fine without this program. You probably don't need this software.
 
 ---
 
 ## Which program to use for add/remove bittorrent trackers? ##
   * **Edit one torrent file:** You can use http://torrenteditor.com/
-  * **Edit multiple torrent file:** Use this program. It is made for changing multiple torrent files.
+  * **Edit multiple torrent files:** Use this program. It is made for changing multiple torrent files.
 
 ---
 
 ## Features: ##
   * Select one torrent file or a folder with torrent files.
-  * Add one or more tracker at the same time.
-  * Remove one or more tracker at the same time.
-  * Remove all the tracker to create tracker less torrent. DHT torrent
+  * Add one or more trackers at the same time.
+  * Remove one or more trackers at the same time.
+  * Remove all the trackers to create trackerless torrent. DHT torrent
   * Change public/private flag. Warning: This will change the torrent info HASH.
-  * Preset add/remove tracker via add\_trackers.txt and remove\_trackers.txt files when present in the same folder as the executable file.
+  * Preset add/remove tracker via add\_trackers.txt and remove\_trackers.txt files when present in the same folder as the executable file. (For linux snap version use: home/snap/bittorrent-tracker-editor/common/ )
   * Optional start as console program. (See readme.txt inside download)
   * Show torrent files content.
+  * Download stable trackers from newTrackon or ngosang.
 
 ---
 
 ## Downloads: ##
-  * [From GitHub: Executable file for win32](https://github.com/GerryFerdinandus/bittorrent-tracker-editor/releases)
+  * [From GitHub: Executable file for Windows, macOS and Linux.](https://github.com/GerryFerdinandus/bittorrent-tracker-editor/releases)
+  * [From GitHub: Trackers list (from GitHub user: ngosang )](https://github.com/ngosang/trackerslist)
+  * [From newtrackon.com: Trackers list (from GitHub user: CorralPeltzer )](https://newtrackon.com)
 
 ---
 
-## Software version ##
+## Software history: ##
+### 1.33.1 ###
+  * FIX: Cannot open torrent file V2 format. ([Issue 51](https://github.com/GerryFerdinandus/bittorrent-tracker-editor/issues/51)) 
+
+### 1.33.0 ###
+  * ADD: Support for OpenSSL 3
+  * FIX: Handle dark theme on MacOS. ([Issue 49](https://github.com/GerryFerdinandus/bittorrent-tracker-editor/issues/49))
+  * ADD: Direct download support for ngosang via menu.
+  * ADD: Extra tabpage 'private torrent'. For issue 31 and 34
+  * ADD: Check box 'Skip Announce Check in the URL' ([Issue 31](https://github.com/GerryFerdinandus/bittorrent-tracker-editor/issues/31))
+  * ADD: Command parameter '-SAC' -> 'Skip Announce Check' in the URL ([Issue 31](https://github.com/GerryFerdinandus/bittorrent-tracker-editor/issues/31))
+  * ADD: Support 'Info Source' tag for private trackers ([Issue 34](https://github.com/GerryFerdinandus/bittorrent-tracker-editor/issues/34))
+  * ADD: Command parameter '-SOURCE' -> info Source tag for private trackers. See readme.txt file ([Issue 34](https://github.com/GerryFerdinandus/bittorrent-tracker-editor/issues/34))
+  * FiX: support for '/announce.php'([Issue 27](https://github.com/GerryFerdinandus/bittorrent-tracker-editor/issues/27))
+  * FIX: There was an issue with uploading tracker list to newTrackon.
+  * FIX: WebTorrent do not have '/announce'  ([Issue 24](https://github.com/GerryFerdinandus/bittorrent-tracker-editor/issues/24))
+  * ADD: Wrong tracker URL format from torrent files should be unselected by default ([Issue 22](https://github.com/GerryFerdinandus/bittorrent-tracker-editor/issues/22))
+  * ADD: Upload trackers to newTrackon ([Issue 23](https://github.com/GerryFerdinandus/bittorrent-tracker-editor/issues/23))
+  * ADD:  Verify the working status of public trackers. (Data from newTrackon) ([Issue 21](https://github.com/GerryFerdinandus/bittorrent-tracker-editor/issues/21))
+
+### 1.32.0 ###
+  * ADD:  Add more options for updating the torrent tracker list. ([Issue 8](https://github.com/GerryFerdinandus/bittorrent-tracker-editor/issues/8))
+  * ADD:  Add trackers but keep the original unique trackers list intact. ([Issue 12](https://github.com/GerryFerdinandus/bittorrent-tracker-editor/issues/12))
+  * ADD:  Randomize tracker order for each torrent file. ([Issue 19](https://github.com/GerryFerdinandus/bittorrent-tracker-editor/issues/19))
+  * FIX:  Trackers with https ([Issue 9](https://github.com/GerryFerdinandus/bittorrent-tracker-editor/issues/9))
+  * FIX:  Read torrent file with string size larger that 1MB ([Issue 10](https://github.com/GerryFerdinandus/bittorrent-tracker-editor/issues/10))
+  * FIX:  Give user a warning when torrent file is read only file. ([Issue 14](https://github.com/GerryFerdinandus/bittorrent-tracker-editor/issues/14))
+  * FIX:  Give user a warning when torrent file update failed. ([Issue 15](https://github.com/GerryFerdinandus/bittorrent-tracker-editor/issues/15))
+  * FIX:  Can not be opened by dragging a file. ([Issue 17](https://github.com/GerryFerdinandus/bittorrent-tracker-editor/issues/17))
+  * FIX:  Need sanitize URL tracker. ([Issue 18](https://github.com/GerryFerdinandus/bittorrent-tracker-editor/issues/18))
+  * FIX:  WebSocket ws:// and wss:// should be accepted as input. ([Issue 20](https://github.com/GerryFerdinandus/bittorrent-tracker-editor/issues/20))
+
 ### 1.31 ###
-  * Add: Edit comment in data/info grid column.
-  * FIX:  ([Issue 6](https://github.com/GerryFerdinandus/bittorrent-tracker-editor/issues/6))
+  * ADD: Edit comment in data/info grid column.
+  * FIX: The data/info column can be moved but it is not updated correctly when torrent is reloaded. ([Issue 6](https://github.com/GerryFerdinandus/bittorrent-tracker-editor/issues/6))
 
 ### 1.30 ###
-  * Add: Tab page Files/trackers/info
-  * Add: Optional start as console program. (See readme.txt inside download)
-  * Add: remove\_trackers.txt will remove specific trackers form torrent.
-  * Add: export\_trackers.txt is created after updating the torrent.
-  * Add: drag and drop of trackers file (with '.txt' file extension)
-  * FIX:  ([Issue 4](https://github.com/GerryFerdinandus/bittorrent-tracker-editor/issues/4)) + ([Issue 5](https://github.com/GerryFerdinandus/bittorrent-tracker-editor/issues/5))
+  * ADD: Tab page Files/trackers/info
+  * ADD: Optional start as console program. (See readme.txt inside download)
+  * ADD: remove\_trackers.txt will remove specific trackers from torrent.
+  * ADD: export\_trackers.txt is created after updating the torrent.
+  * ADD: drag and drop of trackers file (with '.txt' file extension)
+  * FIX: Can not remove duplicate Tracker automatically ([Issue 4](https://github.com/GerryFerdinandus/bittorrent-tracker-editor/issues/4))
+  * FIX: Can't open some of .torrent files. ([Issue 5](https://github.com/GerryFerdinandus/bittorrent-tracker-editor/issues/5))
 
 ### 1.21 ###
   * FIX: Support for Unicode in filename. (Chinese etc.)
 
 ### 1.20 ###
-  * Add: Tab page torrent info/data.
-  * Add: Drag & Drop torrent files or a folder with torrent files inside.
+  * ADD: Tab page torrent info/data.
+  * ADD: Drag & Drop torrent files or a folder with torrent files inside.
 
 ### 1.10 ###
-  * Add: Tab page for public/private flag. ([Issue 1](https://github.com/GerryFerdinandus/bittorrent-tracker-editor/issues/1))
-  * Add: Load tracker list from file via menu or at start-up, when file add\_trackers.txt is present in the same folder as the executable file.
+  * ADD: Tab page for public/private flag. ([Issue 1](https://github.com/GerryFerdinandus/bittorrent-tracker-editor/issues/1))
+  * ADD: Load tracker list from file via menu or at start-up, when file add\_trackers.txt is present in the same folder as the executable file.
 
 ### 1.00 ###
   * First release
 
 ---
 
-![https://8d7d8faefd7e24e8562f235c97f55f248c7636d1.googledrive.com/host/0B4lG_fvmX5NZRkMtcjgzT2k5QTg/trackereditor.png](https://8d7d8faefd7e24e8562f235c97f55f248c7636d1.googledrive.com/host/0B4lG_fvmX5NZRkMtcjgzT2k5QTg/trackereditor.png)
+![](https://github.com/GerryFerdinandus/bittorrent-tracker-editor/releases/download/V1.32.0/trackereditor_list_windows.png "Trackers List")
 
-This screen shot show the program, after a folder is selected with 97 torrent files inside. The normal procedure is to deselect the trackers that no longer working. Optionally add your one trackers. And press the 'Update torrent'
+This screen shot show the program, after a folder is selected with torrent files inside. The normal procedure is to deselect the trackers that are no longer working. Optionally add your own trackers. And select the 'Update torrent' menu.
 
 ---
 
-![https://8d7d8faefd7e24e8562f235c97f55f248c7636d1.googledrive.com/host/0B4lG_fvmX5NZRkMtcjgzT2k5QTg/filestrackersinfo.png](https://8d7d8faefd7e24e8562f235c97f55f248c7636d1.googledrive.com/host/0B4lG_fvmX5NZRkMtcjgzT2k5QTg/filestrackersinfo.png)
+![](https://github.com/GerryFerdinandus/bittorrent-tracker-editor/releases/download/V1.32.0/trackereditor_info_windows.png "Files/Trackers/Info")
+
+---
+
+## License: ##
+**bittorrent-tracker-editor** is released under [MIT License](http://www.opensource.org/licenses/MIT)
 
 ---
 
 This program is developed using [Lazarus](http://lazarus.freepascal.org/) RAD and [Free Pascal](http://www.freepascal.org/) compiler.
+
+---
+
+This product includes software developed by the OpenSSL Project for use in the OpenSSL Toolkit (http://www.openssl.org/)
diff --git a/SourceCodeBuild.txt b/SourceCodeBuild.txt
index 31e9229..616f378 100644
--- a/SourceCodeBuild.txt
+++ b/SourceCodeBuild.txt
@@ -1,12 +1,22 @@
 Build from source.
 
+-------- Windows
 Install latest Lazarus IDE
 http://www.lazarus.freepascal.org/
 
 Open project file:
 menu Project -> open project
-select 'trackereditor.lpi' file
+select 'trackereditor.lpi' file inside 'source/project/tracker_editor/'
 
 Build:
 Menu Run -> Build
-Executable file is created in the executable directory.
+Executable file is created in the 'enduser' directory.
+
+-------- Linux Ubuntu 14.04
+sudo apt-get update
+sudo apt-get install git lazarus -y
+cd ~
+git clone --recursive https://github.com/GerryFerdinandus/bittorrent-tracker-editor.git
+lazbuild bittorrent-tracker-editor/source/project/tracker_editor/trackereditor.lpi
+
+Executable file is created in the 'enduser' directory.
diff --git a/enduser/add_trackers.txt b/enduser/add_trackers.txt
new file mode 100644
index 0000000..b382aaf
--- /dev/null
+++ b/enduser/add_trackers.txt
@@ -0,0 +1,3 @@
+udp://tracker.coppersurfer.tk:6969/announce
+udp://tracker.opentrackr.org:1337/announce
+wss://tracker.openwebtorrent.com
diff --git a/enduser/readme.txt b/enduser/readme.txt
new file mode 100644
index 0000000..2787c3d
--- /dev/null
+++ b/enduser/readme.txt
@@ -0,0 +1,160 @@
+The below this line is for more the 'automated' use of trackereditor.
+If you do not want to use it this way, then just remove both the files 'add_trackers.txt' and 'remove_trackers.txt' from the directory.
+
+These '.txt' files must be place in the same directory as the program.
+
+--------------------
+--- Linux usage example : 1 (public trackers)
+Update all the torrent files with only the latest tested stable tracker.
+
+curl https://newtrackon.com/api/stable --output add_trackers.txt
+echo > remove_trackers.txt
+./trackereditor ../test_torrent -U0
+
+Line 1: This will download the latest stable trackers into add_trackers.txt
+Line 2: Remove_trackers.txt is now a empty file. All trackers from the present torrent will be REMOVED.
+Line 3: Update all the torrent files inside the test_torrent folder.
+
+note -U0 parameter can be change to -U4 (sort by name)
+This is my prefer setting for the rtorrent client.
+rtorrent client announce to all the trackers inside the torrent file.
+I prefer to see all the trackers in alphabetical order inside rtorrent client console view.
+rtorrent client need to have the 'session' folder cleared and restart rtorrent to make this working.
+This can be run via regular cron job to keep the client running with 100% functional trackers.
+
+--- Linux usage example: 2 (public trackers)
+Mix the latest tested stable tracker with the present trackers already present inside the torrent files.
+
+curl https://raw.githubusercontent.com/ngosang/trackerslist/master/trackers_best.txt  --output add_trackers.txt
+curl https://raw.githubusercontent.com/ngosang/trackerslist/master/blacklist.txt  --output remove_trackers.txt
+./trackereditor ../test_torrent -U0
+
+Line 1: This will download the latest stable trackers into add_trackers.txt
+Line 2: Remove_trackers.txt now contain blacklisted trackers
+Line 3: Update all the torrent files inside the test_torrent folder.
+
+Diference betwean example 1 vs 2
+Example 1 is guarantee that all the trackers are working.
+Example 2 You are responseble for the trackers working that are not part of add_trackers.txt
+
+--- Linux usage example: 3 (private trackers)
+In add_trackers.txt file manualy the private tracker URL
+echo > remove_trackers.txt
+./trackereditor ../test_torrent -U0 -SAC -SOURCE "abcd"
+
+Line 2: Remove_trackers.txt is now a empty file. All trackers from the present torrent will be REMOVED.
+Line 3: Update all the torrent files inside the test_torrent folder.
+        -SAC (Skip Annouce Check) This is needed to skip private tracker URL check.
+        -SOURCE Add private tracker source tag "abcd"
+
+-SOURCE is optionally.
+-SOURCE "" Empty sting will remove all the source tag
+--------------------
+
+Usage example Windows desktop short cut for private tracker user.
+This is the same idea as "Usage example: 3 (private trackers)"
+But start it from the desktop shortcut (double click) and not from windows console via bat file etc.
+
+Desktop shortcut can have extra parameter append.
+C:\Users\root\Documents\github\bittorrent-tracker-editor\enduser\trackereditor.exe ..\test_torrent -U0 -SAC -SOURCE abc
+
+Make sure that add_trackers.txt is filled with the private URL
+And remove_trackers.txt is a empty file.
+
+--------------------
+
+Console mode windows example:
+Start program with a parameter to torrent file or dir
+trackereditor.exe "C:\dir\torrent\file.torrent" -U4
+trackereditor.exe "C:\dir\torrent" -U4
+What tracker will be added/removed depend the content of the add_trackers.txt and remove_trackers.txt files.
+
+
+Additional Files: Trackers file and log file 
+These 3 files can be optionally present in the same dir as the trackereditor executable file.
+'add_trackers.txt' and 'remove_trackers.txt' are used in 'hidden console' mode and normal 'windows mode'
+
+
+add_trackers.txt
+List of all the trackers that must added.
+
+
+remove_trackers.txt
+List of all the trackers that must removed
+note: if the file is empty then all trackers from the present torrent will be REMOVED.
+note: if the file is not present then no trackers will be automatic removed.
+
+
+log.txt is only created in console mode.
+Show the in console mode the success/failure of the torrent update.
+First line status: 'OK' or 'ERROR: xxxxxxx' xxxxxxx = error description
+Second line files count: '1'
+Third line tracker count: 23
+Second and third line info are only valid if the first line is 'OK'
+
+--------------------
+
+3 possible use case scenario in updating torrent file.
+Add tracker and/or remove tracker
+
+Add new tracker + keep tracker inside torrent
+	Add trackers to the add_trackers.txt file
+	remove_trackers.txt MUST NOT be present.	
+
+
+Add new tracker + remove some or all tracker inside torrent.
+	Add trackers to the add_trackers.txt file
+
+	Add trackers to the remove_trackers.txt file
+	or 
+	Empty remove_trackers.txt file to remove all trackers from the present torrent
+
+
+no new tracker + remove some or all tracker inside torrent.
+	Empty add_trackers.txt file. 
+
+	Add trackers to the remove_trackers.txt file.
+	or 
+	Empty remove_trackers.txt file to remove all trackers from the present torrent.
+	This will create torrent files with out any tracker. (DHT torrent)
+
+--------------------
+
+Updated torrent file trackers list order with '-Ux' parameter.
+This is a mandatory parameter.
+
+trackereditor.exe "C:\dir\torrent" -U0
+
+Console parameter: -U0
+	Insert new trackers list BEFORE, the original trackers list inside the torrent file.
+	And remove possible duplicated trackers from the ORIGINAL trackers list.
+
+Console parameter: -U1
+	Insert new trackers list BEFORE, the original trackers list inside the torrent file.
+	And remove possible duplicated trackers from the NEW trackers list.
+
+Console parameter: -U2
+	Append new trackers list AFTER, the original trackers list inside the torrent file.
+	And remove possible duplicated trackers from the ORIGINAL trackers list.
+
+Console parameter: -U3
+	Append new trackers list AFTER, the original trackers list inside the torrent file.
+	And remove possible duplicated trackers from the NEW trackers list.
+
+Console parameter: -U4
+	Sort the trackers list by name.
+
+Console parameter: -U5
+	Append new trackers list BEFORE, the original trackers list inside the torrent file.
+	Keep original tracker list unchanged and remove nothing.
+
+Console parameter: -U6
+	Append new trackers list AFTER, the original trackers list inside the torrent file.
+	Keep original tracker list unchanged and remove nothing.
+
+Console parameter: -U7
+	Randomize the trackers list.
+
+--------------------
+Acknowledgment:
+This product includes software developed by the OpenSSL Project for use in the OpenSSL Toolkit (http://www.openssl.org/)
diff --git a/enduser/remove_trackers.txt b/enduser/remove_trackers.txt
new file mode 100644
index 0000000..1669c5c
--- /dev/null
+++ b/enduser/remove_trackers.txt
@@ -0,0 +1 @@
+udp://tracker.trackerhoneypot.com:80
diff --git a/enduser/version.txt b/enduser/version.txt
new file mode 100644
index 0000000..5b91cbf
--- /dev/null
+++ b/enduser/version.txt
@@ -0,0 +1,71 @@
+------ Version 1.33.1
+FIX: Cannot open torrent file V2 format (Issue 51)
+Compiler Lazarus: v3.6
+
+------ Version 1.33
+ADD: Verify the working status of public trackers. (Issue 21)
+ADD: Wrong tracker URL format from torrent files should be unselected by default (Issue 22)
+ADD: Upload trackers to newTrackon (Issue 23)
+FIX: WebTorrent do not have '/announce'  (Issue 24)
+FiX: add support for '/announce.php'(Issue 27)
+ADD: Extra tabpage 'private torrent'. For issue 31 and 34
+ADD: Check box 'Skip Announce Check in the URL' (Issue 31)
+ADD: Command parameter '-SAC' -> 'Skip Announce Check' in the URL (Issue 31)
+ADD: Support 'Info Source' tag for private trackers (issue 34)
+ADD: Command parameter '-SOURCE' -> info Source tag for private trackers. See readme.txt file (issue 34)
+ADD: Direct download support for ngosang via menu (Issue 35)
+ADD: Support for OpenSSL 3
+FIX: Handle dark theme on MacOS. (Issue 49)
+Compiler Lazarus: v2.26
+
+------ Version 1.32
+ADD: Add more options for updating the torrent tracker list. (Issue 8)
+ADD: Add trackers but keep the original unique trackers list instact. (Issue 12)
+ADD: Randomize tracker order for each torrent file. (Issue 19)
+FIX: Trackers with https (Issue 9)
+FIX: Read torrent file with string size langer that 1MB (Issue 10)
+FIX: Give user a warning when torrent file is read only file. (Issue 14)
+FIX: Give user a warning when torrent file update failed. (Issue 15)
+FIX: Can not be opened by dragging a file. (Issue 17)
+FIX: Need sanitize URL tracker. (Issue 18)
+FIX: WebSocket ws:// and wss:// should be accepted as input. (Issue 20)
+Compiler Lazarus: v1.62
+
+------ Version 1.31
+ADD: tab page 'Files/Trackers/Info' show how many files count in one torrent
+ADD: tab page 'Files/Trackers/Info' show how many trackers count in one torrent
+ADD: Edit comment in data/info grid column.
+FIX: The data/info column can be moved but it is not updated correctly when
+torrent is reloaded.
+
+------ Version 1.30
+ADD: Tab page Files/trackers/info
+ADD: Optional start program from console. (See readme.txt file)
+ADD: remove_trackers.txt will remove specific trackers form torrent.
+ADD: export_trackers.txt is created after updating the torrent.
+ADD: drag and drop of trackers file (with '*.txt' file extension)
+Fix: tab page Data/info 'Total size' sort functionality.
+Fix: tab page Data/info 'Piece Length' sort functionality.
+Fix: tab page Data/info 'info hash' must be upper-case. 
+FIX: issue 4 + 5 (see website)
+Compiler Lazarus: v1.24
+
+------ Version 1.21
+FIX: Support Unicode in filename. (Chinese etc.)
+Compiler Lazarus: v1.0.12
+
+------ Version 1.20
+ADD: torrent Data/info tabpage
+ADD: Drag and drop of torrent files or folder.
+Compiler Lazarus: v1.0.10
+
+------ Version 1.10 (2013-0510)
+ADD: tabpage for public/private torrent
+ADD: Tracker List can be loaded from file
+Add: add_trackers.txt
+FIX: issue 1 (see website)
+Compiler Lazarus: v1.0.8
+
+------ Version 1.00 (2012-0303)
+First release
+Compiler Lazarus: v0.9.30
diff --git a/executable/add_trackers.txt b/executable/add_trackers.txt
deleted file mode 100644
index f1d2079..0000000
--- a/executable/add_trackers.txt
+++ /dev/null
@@ -1,4 +0,0 @@
-udp://tracker.openbittorrent.com:80/announce
-udp://tracker.publicbt.com:80/announce
-udp://tracker.istole.it:80/announce
-udp://open.demonii.com:1337/announce
diff --git a/executable/remove_trackers.txt b/executable/remove_trackers.txt
deleted file mode 100644
index 039537e..0000000
--- a/executable/remove_trackers.txt
+++ /dev/null
@@ -1,2 +0,0 @@
-udp://tracker.thepiratebay.org:80/announce
-http://tracker.thepiratebay.org/announce
diff --git a/metainfo/io.github.gerryferdinandus.bittorrent-tracker-editor.desktop b/metainfo/io.github.gerryferdinandus.bittorrent-tracker-editor.desktop
new file mode 100644
index 0000000..798d0ca
--- /dev/null
+++ b/metainfo/io.github.gerryferdinandus.bittorrent-tracker-editor.desktop
@@ -0,0 +1,9 @@
+[Desktop Entry]
+Version=1.0
+Type=Application
+Name=bittorrent-tracker-editor
+Comment=Add or remove tracker from torrent files.
+Categories=Utility;Qt;
+Icon=io.github.gerryferdinandus.bittorrent-tracker-editor
+Exec=trackereditor
+Terminal=false
diff --git a/metainfo/io.github.gerryferdinandus.bittorrent-tracker-editor.metainfo.xml b/metainfo/io.github.gerryferdinandus.bittorrent-tracker-editor.metainfo.xml
new file mode 100644
index 0000000..e2aa6d8
--- /dev/null
+++ b/metainfo/io.github.gerryferdinandus.bittorrent-tracker-editor.metainfo.xml
@@ -0,0 +1,78 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<component type="desktop-application">
+  <id>io.github.gerryferdinandus.bittorrent-tracker-editor</id>
+  <name>bittorrent-tracker-editor</name>
+  <summary>Add or remove tracker from torrent files.</summary>
+  <developer_name>Gerry Ferdinandus</developer_name>
+  <launchable type="desktop-id">io.github.gerryferdinandus.bittorrent-tracker-editor.desktop</launchable>
+
+  <metadata_license>CC0-1.0</metadata_license>
+  <project_license>MIT</project_license>
+
+  <url type="homepage">https://github.com/GerryFerdinandus/bittorrent-tracker-editor</url>
+  <url type="bugtracker">https://github.com/GerryFerdinandus/bittorrent-tracker-editor/issues</url>
+
+  <content_rating type="oars-1.1" />
+
+  <description>
+    <p>
+      Warning: There is no backup function in this software. Use it at your own risk.
+    </p>
+    <ul>
+      <li>Select one torrent file or a folder with torrent files</li>
+      <li>Add one or more trackers at the same time</li>
+      <li>Remove one or more trackers at the same time</li>
+      <li>Remove all the trackers to create trackerless torrent. DHT torrent</li>
+      <li>Change public/private flag. Warning: This will change the torrent info HASH</li>
+      <li>Show torrent files content</li>
+      <li>Download stable trackers from newTrackon or ngosang</li>
+    </ul>
+    <p>
+      BitTorrent works fine without this program. You probably don&apos;t need this software.
+    </p>
+  </description>
+
+  <screenshots>
+    <screenshot type="default">
+      <caption>The main window</caption>
+      <image>
+        https://github.com/GerryFerdinandus/bittorrent-tracker-editor/releases/download/V1.32.0/trackereditor_list_linux.png</image>
+    </screenshot>
+    <screenshot>
+      <caption>Torrent info</caption>
+      <image>
+        https://github.com/GerryFerdinandus/bittorrent-tracker-editor/releases/download/V1.32.0/trackereditor_info_linux.png</image>
+    </screenshot>
+  </screenshots>
+
+  <releases>
+    <release version="1.33.1" date="2024-12-8">
+      <description>
+        <p>This release fixes the following bugs:</p>
+        <ul>
+          <li>Cannot open torrent file V2 format</li>
+        </ul>
+      </description>
+    </release>
+    <release version="1.33.0" date="2023-11-18">
+      <description>
+        <p>
+          This release adds the following features:
+        </p>
+        <ul>
+          <li>Verify the working status of public trackers.</li>
+          <li>Direct download support for ngosang via menu.</li>
+          <li>Extra tabpage 'private torrent'.</li>
+          <li>Support 'Info Source' tag for private trackers </li>
+          <li>Wrong tracker URL format from torrent files should be unselected by default</li>
+          <li>Upload trackers to newTrackon</li>
+        </ul>
+        <p>This release fixes the following bugs:</p>
+        <ul>
+          <li>support for '/announce.php'</li>
+          <li>WebTorrent do not have '/announce'</li>
+        </ul>
+      </description>
+    </release>
+  </releases>
+</component>
\ No newline at end of file
diff --git a/metainfo/io.github.gerryferdinandus.bittorrent-tracker-editor.png b/metainfo/io.github.gerryferdinandus.bittorrent-tracker-editor.png
new file mode 100644
index 0000000..392dbf6
Binary files /dev/null and b/metainfo/io.github.gerryferdinandus.bittorrent-tracker-editor.png differ
diff --git a/readme.txt b/readme.txt
deleted file mode 100644
index 998e92d..0000000
--- a/readme.txt
+++ /dev/null
@@ -1,66 +0,0 @@
-The below this line is for more the 'automated' use of trackereditor.
-If you do not want to use it this way, then just remove both the files 'add_trackers.txt' and 'remove_trackers.txt' from the directory.
-
-These '.txt' files must be place in the same directory as the program.
-
-
-Console mode:
-Start program with a parameter to torrent file or dir
-trackereditor.exe "C:\dir\torrent\file.torrent"
-trackereditor.exe "C:\dir\torrent"
-What tracker will be added/removed depend the content of the add_trackers.txt and remove_trackers.txt files.
-
---------------------
-Additional Files: Trackers file and log file 
-These 3 files can be optionaly present in the same dir as the trackereditor excutable file.
-'add_trackers.txt' and 'remove_trackers.txt' are used in 'hidden console' mode and normal 'windows mode'
-
-
-add_trackers.txt
-List of all the trackers that must added.
-
-
-remove_trackers.txt
-List of all the trackers that must removed
-note: if the file is empty then all trackers from the present torrent will be REMOVED.
-note: if the file is not present then no trackers will be automatickly removed.
-
-
-
-log.txt is only created in console mode.
-Show the in console mode the succes/failure of the torrent update.
-First line status: 'OK' or 'ERROR: xxxxxxx' xxxxxxx = error description
-Second line files count: '1'
-Third line tracker count: 23
-Second and third line info are only valid if the first line is 'OK'
-
---------------------
-
-
-3 posible use case scenario in updating torrent file.
-Add tracker and/or remove tracker
-
-Add new tracker + keep tracker inside torrent
-	Add trackers to the add_trackers.txt file
-	remove_trackers.txt MUST NOT be present.	
-
-
-Add new tracker + remove some or all tracker inside torrent.
-	Add trackers to the add_trackers.txt file
-
-	Add trackers to the remove_trackers.txt file
-	or 
-	Empty remove_trackers.txt file to remove all trackers from the present torrent
-
-
-no new tracker + remove some or all tracker inside torrent.
-	Empty add_trackers.txt file. 
-
-	Add trackers to the remove_trackers.txt file.
-	or 
-	Empty remove_trackers.txt file to remove all trackers from the present torrent.
-	This will create torrent files with out any tracker. (DHT torrent)
-
-
-
-
diff --git a/snap/snapcraft.yaml b/snap/snapcraft.yaml
new file mode 100644
index 0000000..bc6fe21
--- /dev/null
+++ b/snap/snapcraft.yaml
@@ -0,0 +1,88 @@
+name: bittorrent-tracker-editor
+adopt-info: mainprogram
+icon: metainfo/io.github.gerryferdinandus.bittorrent-tracker-editor.png
+
+base: core24
+grade: stable
+confinement: strict
+
+platforms:
+ amd64:
+ arm64:
+
+apps:
+  bittorrent-tracker-editor:
+    desktop: io.github.gerryferdinandus.bittorrent-tracker-editor.desktop
+    extensions:
+      - kde-neon-6
+    command: trackereditor
+    plugs:
+      - home
+      - network
+      - removable-media
+
+parts:
+  build_lazarus:
+    source: .
+    plugin: nil
+    build-packages:
+      - curl
+      - build-essential
+      - fpc
+      - libxkbcommon-dev
+
+    build-environment:
+      - LAZARUS_URL_TAR_GZ: "https://github.com/GerryFerdinandus/bittorrent-tracker-editor/releases/download/V1.32.0/lazarus.tar.gz"
+      - LAZARUS_QT_VERSION: "6"
+      - LIB_DIR: "/usr/lib/$CRAFT_ARCH_TRIPLET_BUILD_FOR"
+      - LAZARUS_DIR: "$PWD/lazarus"
+    override-build: |
+      #Download lazarus source code. Directory 'lazarus' will be created in the root.
+      curl -L -O $LAZARUS_URL_TAR_GZ
+      tar -xzf *.tar.gz
+
+      #--- Create libQTpas.so and put it in /usr/lib/ and $CRAFT_PART_INSTALL
+      cd "$LAZARUS_DIR/lcl/interfaces/qt${LAZARUS_QT_VERSION}/cbindings/"
+      /snap/kde-qt6-core24-sdk/current/usr/bin/qt6/qmake6
+      make -j$(nproc)
+
+      # copy the libQTpas.so to /usr/lib/ (needed for compile-time linking)
+      cp -av libQt${LAZARUS_QT_VERSION}Pas.* $LIB_DIR/
+
+      # copy the libQTpas.so to snap install directory (needed for run-time linking)
+      cp -av --parents $LIB_DIR/libQt${LAZARUS_QT_VERSION}Pas.* $CRAFT_PART_INSTALL
+
+      #--- Make lazbuild and put the link with extra parameter in /usr/bin/
+      cd "$LAZARUS_DIR"
+      make lazbuild
+      echo "$LAZARUS_DIR/lazbuild --primary-config-path=$LAZARUS_DIR --lazarusdir=$LAZARUS_DIR \$*" > /usr/bin/lazbuild
+      chmod 777 /usr/bin/lazbuild
+
+  mainprogram: # Build and add to snap the main program: trackereditor
+      after: [build_lazarus]
+      source: .
+      plugin: nil
+      parse-info: [metainfo/io.github.gerryferdinandus.bittorrent-tracker-editor.metainfo.xml]
+      override-build: |
+        lazbuild --build-mode=Release --widgetset=qt6 source/project/tracker_editor/trackereditor.lpi
+        install enduser/trackereditor $CRAFT_PART_INSTALL/
+        install metainfo/io.github.gerryferdinandus.bittorrent-tracker-editor.desktop $CRAFT_PART_INSTALL/
+
+# --------------------------------------------------------------
+# Only 3 files are explicitly added in this snap
+# - main program: enduser/trackereditor
+# - desktop file: metainfo/io.github.gerryferdinandus.bittorrent-tracker-editor.desktop
+# - libQt6Pas.so created during the build_lazarus part
+#
+# Create snap. Run from the project root folder:
+# snapcraft pack --verbosity verbose
+#
+# To look what is inside the snap file. Directory 'squashfs-root' will be created in the root folder:
+# unsquashfs *.snap
+#
+# Install the snap:
+# sudo snap install --devmode ./*.snap 
+#
+# Run the snap
+# snap run bittorrent-tracker-editor
+# --------------------------------------------------------------
diff --git a/source/bencode.pas b/source/code/bencode.pas
similarity index 93%
rename from source/bencode.pas
rename to source/code/bencode.pas
index 5d75964..27fcddc 100644
--- a/source/bencode.pas
+++ b/source/code/bencode.pas
@@ -1,6 +1,5 @@
+// SPDX-License-Identifier: CC0-1.0
 {
-Decode and encode the Bencode format used in torrent files
-
 public domain code?
 Source code from:
 http://www.torry.net/quicksearchd.php?String=bencode&Title=Yes
@@ -8,6 +7,10 @@
 With some minor modification made by Gerry Ferdinandus
 }
 
+{
+Decode and encode the Bencode format used in torrent files
+}
+
 {
   Bug fix 2014-10-09
   'i' integer now accept negative number
@@ -31,7 +34,7 @@   TBEncoded = class;
 
   TBEncodedData = class
   public
-    Header: string;
+    Header: UTF8String;
     Data: TBEncoded;
     destructor Destroy; override;
   public
@@ -45,13 +48,13 @@   TBEncodedDataList = class(TObjectList)
     function GetItems(Index: Integer): TBEncodedData;
     procedure SetItems(Index: Integer; AClass: TBEncodedData);
   public
-    function FindElement(Header: string): TBEncoded;
+    function FindElement(Header: UTF8String): TBEncoded;
     function Add(AClass: TBEncodedData): Integer;
     function Extract(Item: TBEncodedData): TBEncodedData;
     function Remove(AClass: TBEncodedData): Integer;
     function IndexOf(AClass: TBEncodedData): Integer;
 
-    function RemoveElement(Header: string): integer;//2011-1030
+    function RemoveElement(Header: UTF8String): integer;//2011-1030
 
     function First: TBEncodedData;
     function Last: TBEncodedData;
@@ -65,11 +68,11 @@   TBEncoded = class(TObject)
     FFormat: TBEncodedFormat;
     procedure SetFormat(Format: TBEncodedFormat);
   public
-    StringData: string;
+    StringData: UTF8String;
     IntegerData: int64;
     ListData: TBEncodedDataList;
     property Format: TBEncodedFormat read FFormat write SetFormat;
-    class procedure Encode(Encoded: TBEncoded; var Output: string);
+    class procedure Encode(Encoded: TBEncoded; var Output: UTF8String);
     destructor Destroy; override;
     constructor Create(Stream: TStream);
     constructor Create;
@@ -103,6 +106,7 @@ constructor TBEncoded.Create(Stream: TStream);
   var
     X: char;
   begin
+    Result := '';
     // loop until we come across it
     X := ' ';
     repeat
@@ -114,7 +118,7 @@ constructor TBEncoded.Create(Stream: TStream);
       begin
         if Buffer = '' then
           raise Exception.Create('');
-        if Length(Buffer) > 6 then
+        if Length(Buffer) > 7 then
           raise Exception.Create('');
         SetLength(Result, StrToInt(Buffer));
         if Stream.Read(Result[1], Length(Result)) <> Length(Result) then
@@ -235,7 +239,7 @@ constructor TBEncoded.Create;
   inherited Create;
 end;
 
-class procedure TBEncoded.Encode(Encoded: TBEncoded; var Output: string);
+class procedure TBEncoded.Encode(Encoded: TBEncoded; var Output: UTF8String);
 var
   i: integer;
 begin
@@ -275,7 +279,7 @@ procedure TBEncoded.SetFormat(Format: TBEncodedFormat);
   FFormat := Format;
 end;
 
-function TBEncodedDataList.FindElement(Header: string): TBEncoded;
+function TBEncodedDataList.FindElement(Header: UTF8String): TBEncoded;
 var
   i: integer;
 begin
@@ -315,7 +319,7 @@ function TBEncodedDataList.IndexOf(AClass: TBEncodedData): Integer;
   Result := inherited IndexOf(AClass);
 end;
 
-function TBEncodedDataList.RemoveElement(Header: string): Integer;
+function TBEncodedDataList.RemoveElement(Header: UTF8String): Integer;
 var
   i: integer;
 begin
@@ -337,7 +341,7 @@ procedure TBEncodedDataList.Insert(Index: Integer; AClass: TBEncodedData);
 
 function TBEncodedDataList.Last: TBEncodedData;
 begin
-  Result := TBEncodedData(inherited First);
+  Result := TBEncodedData(inherited Last);
 end;
 
 function TBEncodedDataList.Remove(AClass: TBEncodedData): Integer;
diff --git a/source/code/controler_trackerlist_online.pas b/source/code/controler_trackerlist_online.pas
new file mode 100644
index 0000000..fb4705b
--- /dev/null
+++ b/source/code/controler_trackerlist_online.pas
@@ -0,0 +1,217 @@
+// SPDX-License-Identifier: MIT
+unit controler_trackerlist_online;
+
+{
+  Show the present status of the trackerURL via TStringGrid
+}
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, Grids, trackerlist_online, newtrackon;
+
+type
+
+  TDefaultChecked = function(const TrackerURL: utf8string): boolean of object;
+
+  { TControlerTrackerListOnline }
+
+  TControlerTrackerListOnline = class
+  private
+    FStringGridTorrentURL: TStringGrid;
+    FNewTrackon: TNewTrackon;
+    FTrackerListOnline: TTrackerListOnline;
+    FTrackerList: TStringList;
+    FDefaultChecked: TDefaultChecked;
+
+    //The collumn must be in this design order.
+    FSelect,               //< 0
+    FTorrentURL,           //< 1
+    FTorrentURL_Status     //< 2
+    : TGridColumn;
+
+    function GetChecked(index: integer): boolean;
+    procedure SetChecked(index: integer; AValue: boolean);
+    procedure ShowTrackerStatus(Visible: boolean);
+    procedure AppendRow(Checked: boolean; Status: TTrackerListOnlineStatus;
+      const TrackerURL: utf8string);
+  public
+    property Checked[index: integer]: boolean read GetChecked write SetChecked;
+    function TrackerURL(index: integer): string;
+    function TrackerStatus(index: integer): TTrackerListOnlineStatus;
+    function Count: integer;
+    function StableTrackers: TStringList;
+
+    //must be called if the tracker list is updated
+    procedure UpdateView;
+
+    function DownloadTrackers_All_Live_Stable: boolean;
+
+    //Submit tracker to newTrackon via http POST
+    function SubmitTrackers(TrackerList: TStringList;
+      out TrackersSendCount: integer): boolean;
+
+    constructor Create(StringGridTorrentURL: TStringGrid; TrackerList: TStringList;
+      DefaultChecked: TDefaultChecked);
+    destructor Destroy; override;
+  end;
+
+
+implementation
+
+uses Graphics;
+
+{ TControlerTrackerListOnline }
+
+
+function IsDarkTheme: boolean;
+  // by "Hansaplast" & "Alextp" from Lazarus forum
+  function _Level(C: TColor): double;
+  begin
+    Result := Red(C) * 0.3 + Green(C) * 0.59 + Blue(C) * 0.11;
+  end;
+
+begin
+  Result := _Level(ColorToRGB(clWindow)) < _Level(ColorToRGB(clWindowText));
+end;
+
+function TControlerTrackerListOnline.DownloadTrackers_All_Live_Stable: boolean;
+begin
+  Result := FNewTrackon.Download_All_Live_Stable;
+  UpdateView;
+  ShowTrackerStatus(Result);
+end;
+
+function TControlerTrackerListOnline.SubmitTrackers(TrackerList: TStringList;
+  out TrackersSendCount: integer): boolean;
+begin
+  Result := FNewTrackon.SubmitTrackers(TrackerList, TrackersSendCount);
+end;
+
+constructor TControlerTrackerListOnline.Create(StringGridTorrentURL: TStringGrid;
+  TrackerList: TStringList; DefaultChecked: TDefaultChecked);
+begin
+
+  FTrackerList := TrackerList;
+  FDefaultChecked := DefaultChecked;
+
+  FStringGridTorrentURL := StringGridTorrentURL;
+  FStringGridTorrentURL.RowCount := 1;
+  FStringGridTorrentURL.FixedRows := 1;
+
+  if not IsDarkTheme then
+  begin // The dark theme for Linux and macOS cannot use AlternateColor. Text will be invisible.
+    FStringGridTorrentURL.AlternateColor := clCream;
+  end;
+
+  FSelect := FStringGridTorrentURL.Columns.Add;
+  FSelect.Title.Caption := 'Keep';
+  FSelect.ButtonStyle := cbsCheckboxColumn;
+  FSelect.ReadOnly := False;
+
+
+  FTorrentURL_Status := FStringGridTorrentURL.Columns.Add;
+  FTorrentURL_Status.Title.Caption := 'Online status';
+  ShowTrackerStatus(False);
+  FTorrentURL_Status.ReadOnly := True;
+
+  FTorrentURL := FStringGridTorrentURL.Columns.Add;
+  FTorrentURL.Title.Caption := 'Tracker URL';
+  FTorrentURL.ReadOnly := True;
+
+  //make sure all text are fit inside the columns
+  FStringGridTorrentURL.AutoSizeColumns;
+
+  FNewTrackon := TNewTrackon.Create;
+  FTrackerListOnline := TTrackerListOnline.Create;
+
+  //copy tracker list from TNewTrackon to TTrackerListOnline
+  FTrackerListOnline.TrackerList_Live := FNewTrackon.TrackerList_Live;
+  FTrackerListOnline.TrackerList_Dead := FNewTrackon.TrackerList_Dead;
+  FTrackerListOnline.TrackerList_Stable := FNewTrackon.TrackerList_Stable;
+end;
+
+destructor TControlerTrackerListOnline.Destroy;
+begin
+  FTrackerListOnline.Free;
+  FNewTrackon.Free;
+  inherited Destroy;
+end;
+
+procedure TControlerTrackerListOnline.ShowTrackerStatus(Visible: boolean);
+begin
+  FTorrentURL_Status.Visible := Visible;
+end;
+
+function TControlerTrackerListOnline.GetChecked(index: integer): boolean;
+begin
+  //read the select checkbox. If '1' then it is True
+  Result := FStringGridTorrentURL.Cells[0, index +
+    FStringGridTorrentURL.FixedRows] = '1';
+end;
+
+procedure TControlerTrackerListOnline.SetChecked(index: integer; AValue: boolean);
+begin
+  FStringGridTorrentURL.Cells[0, index + FStringGridTorrentURL.FixedRows] :=
+    BoolToStr(AValue, '1', '0');
+end;
+
+
+procedure TControlerTrackerListOnline.AppendRow(Checked: boolean;
+  Status: TTrackerListOnlineStatus; const TrackerURL: utf8string);
+var
+  CheckedStr, StatusStr: string;
+begin
+  CheckedStr := BoolToStr(Checked, '1', '0');
+  StatusStr := FTrackerListOnline.TrackerListOnlineStatusToString(Status);
+
+  //append to the end of the view list
+  FStringGridTorrentURL.InsertRowWithValues(FStringGridTorrentURL.RowCount,
+    [CheckedStr, StatusStr, TrackerURL]);
+end;
+
+function TControlerTrackerListOnline.TrackerURL(index: integer): string;
+begin
+  Result := FStringGridTorrentURL.Cells[2, index + FStringGridTorrentURL.FixedRows];
+end;
+
+function TControlerTrackerListOnline.TrackerStatus(index: integer):
+TTrackerListOnlineStatus;
+begin
+  Result := FTrackerListOnline.TrackerStatus(TrackerURL(index));
+end;
+
+function TControlerTrackerListOnline.Count: integer;
+begin
+  Result := FStringGridTorrentURL.RowCount - FStringGridTorrentURL.FixedRows;
+end;
+
+function TControlerTrackerListOnline.StableTrackers: TStringList;
+begin
+  Result := FNewTrackon.TrackerList_Stable;
+end;
+
+procedure TControlerTrackerListOnline.UpdateView;
+var
+  tracker: string;
+begin
+  //Clear all the previeus data in the view
+  FStringGridTorrentURL.RowCount := FStringGridTorrentURL.FixedRows;
+
+  FStringGridTorrentURL.BeginUpdate;
+
+  //Show the TrackerList list in string grid view
+  for tracker in FTrackerList do
+  begin
+    AppendRow(FDefaultChecked(tracker), FTrackerListOnline.TrackerStatus(
+      tracker), tracker);
+  end;
+
+  //make sure all text are fit inside the columns
+  FStringGridTorrentURL.AutoSizeColumns;
+
+  FStringGridTorrentURL.EndUpdate;
+end;
+
+end.
diff --git a/source/code/controler_treeview_torrent_data.pas b/source/code/controler_treeview_torrent_data.pas
new file mode 100644
index 0000000..93fa146
--- /dev/null
+++ b/source/code/controler_treeview_torrent_data.pas
@@ -0,0 +1,389 @@
+// SPDX-License-Identifier: MIT
+unit controler_treeview_torrent_data;
+
+{
+ Show the torrent files content in a tree view format.
+}
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, Controls, ComCtrls, Menus, StdCtrls, DecodeTorrent;
+
+type
+
+  { Tcontroler_treeview_torrent_data }
+  Tcontroler_treeview_torrent_data_items = (
+    ctv_ShowAllFiles = 0,
+    ctv_ShowAllTrackers = 1,
+    ctv_ShowAllInfo = 2,
+    ctv_ShowEverything,
+    ctv_HideAll
+    );
+
+  Tcontroler_treeview_torrent_data = class
+  private
+    FTotalFileInsideTorrent: integer;
+    FTotalFileSizeInsideTorrent: int64;
+
+    FGroupBoxTorrentContents: TGroupBox;
+    FPopupMenuTorrentFilesContent: TPopupMenu;
+    FOwner: TWinControl;
+    FTreeViewFileContents: TTreeView;
+    FTreeNodeRoot: TTreeNode;
+    FMenuItemTorrentFilesTreeHideAll: TMenuItem;
+    FMenuItemTorrentFilesTreeShowTrackers: TMenuItem;
+    FMenuItemTorrentFilesTreeShowInfo: TMenuItem;
+    FMenuItemTorrentFilesTreeShowAll: TMenuItem;
+    FMenuItemTorrentFilesTreeShowFiles: TMenuItem;
+    procedure FillThePopupMenu;
+    procedure AddMenuItem(var MenuItem: TMenuItem; Onclick: TNotifyEvent;
+      const Caption: string; tag: integer);
+    procedure MenuItemTorrentFilesTreeShowOrHideItemClick(Sender: TObject);
+    procedure MenuItemTorrentFilesTreeHideAllClick(Sender: TObject);
+    procedure MenuItemTorrentFilesTreeShowAllClick(Sender: TObject);
+    procedure Clear;
+    procedure MenuItemTorrentFilesTreeSyncWithPopupMenu;
+  public
+    //called before AddOneTorrentFileDecoded
+    procedure BeginUpdate;
+
+    //called after AddOneTorrentFileDecoded
+    procedure EndUpdate;
+
+    //Add every torrent one by one to the list
+    procedure AddOneTorrentFileDecoded(DecodeTorrent: TDecodeTorrent);
+
+    constructor Create(Owner: TWinControl);
+
+    destructor Destroy; override;
+  end;
+
+
+
+implementation
+
+uses torrent_miscellaneous;
+
+const
+  TORRENT_FILES_CONTENTS_FORM_CAPTION =
+    'Show all the files inside the torrents. (Use right mouse for popup menu.)';
+
+  { Tcontroler_treeview_torrent_data }
+
+procedure Tcontroler_treeview_torrent_data.FillThePopupMenu;
+begin
+  FPopupMenuTorrentFilesContent := TPopupMenu.Create(FTreeViewFileContents);
+  FTreeViewFileContents.PopupMenu := FPopupMenuTorrentFilesContent;
+
+  //There are 5 menu items the user can select/click on
+  //Create all these 5 menu items.
+
+  //'Show Everything'
+  AddMenuItem(FMenuItemTorrentFilesTreeShowAll, @MenuItemTorrentFilesTreeShowAllClick,
+    'Show Everything', Ord(ctv_ShowEverything));//-1
+
+  //'Hide All'
+  AddMenuItem(FMenuItemTorrentFilesTreeHideAll, @MenuItemTorrentFilesTreeHideAllClick,
+    'Hide All', Ord(ctv_HideAll));//0
+
+  //'Show All Files'
+  AddMenuItem(FMenuItemTorrentFilesTreeShowFiles,
+    @MenuItemTorrentFilesTreeShowOrHideItemClick, 'Show All Files',
+    Ord(ctv_ShowAllFiles));
+  FMenuItemTorrentFilesTreeShowFiles.AutoCheck := True;
+  FMenuItemTorrentFilesTreeShowFiles.Checked := True;
+
+  //'Show All Trackers'
+  AddMenuItem(FMenuItemTorrentFilesTreeShowTrackers,
+    @MenuItemTorrentFilesTreeShowOrHideItemClick, 'Show All Trackers',
+    Ord(ctv_ShowAllTrackers));
+  FMenuItemTorrentFilesTreeShowTrackers.AutoCheck := True;
+  FMenuItemTorrentFilesTreeShowTrackers.Checked := True;
+
+  //'Show All Info'
+  AddMenuItem(FMenuItemTorrentFilesTreeShowInfo,
+    @MenuItemTorrentFilesTreeShowOrHideItemClick, 'Show All Info', Ord(ctv_ShowAllInfo));
+  FMenuItemTorrentFilesTreeShowInfo.AutoCheck := True;
+  FMenuItemTorrentFilesTreeShowInfo.Checked := True;
+
+end;
+
+procedure Tcontroler_treeview_torrent_data.AddMenuItem(var MenuItem: TMenuItem;
+  Onclick: TNotifyEvent; const Caption: string; tag: integer);
+begin
+  MenuItem := TMenuItem.Create(FPopupMenuTorrentFilesContent);
+  MenuItem.OnClick := Onclick;
+  MenuItem.Caption := Caption;
+  MenuItem.Tag := tag;
+  FPopupMenuTorrentFilesContent.Items.Add(MenuItem);
+end;
+
+constructor Tcontroler_treeview_torrent_data.Create(Owner: TWinControl);
+begin
+  inherited Create;
+  FOwner := Owner;
+
+  //create TGroupBox
+  FGroupBoxTorrentContents := TGroupBox.Create(FOwner);
+  FGroupBoxTorrentContents.Parent := FOwner;
+  FGroupBoxTorrentContents.Align := alClient;
+  FGroupBoxTorrentContents.Caption := TORRENT_FILES_CONTENTS_FORM_CAPTION;
+
+  //create TTreeView
+  FTreeViewFileContents := TTreeView.Create(FGroupBoxTorrentContents);
+  FTreeViewFileContents.Parent := FGroupBoxTorrentContents;
+  FTreeViewFileContents.Align := alClient;
+  FTreeViewFileContents.ReadOnly := True;
+  FTreeViewFileContents.ShowRoot := False;
+  FTreeViewFileContents.Options :=
+    FTreeViewFileContents.Options + [tvoAutoExpand, tvoReadOnly] - [tvoShowRoot];
+
+  //create popupmenu
+  FillThePopupMenu;
+
+end;
+
+destructor Tcontroler_treeview_torrent_data.Destroy;
+begin
+  inherited Destroy;
+end;
+
+
+procedure Tcontroler_treeview_torrent_data.MenuItemTorrentFilesTreeHideAllClick(
+  Sender: TObject);
+var
+  i, CountTorrents: integer;
+begin
+  //hide all -> Show only torrent file names
+
+  //user what to hide all the items.
+  //All the popup menu item must first be unchecked.
+  FMenuItemTorrentFilesTreeShowInfo.Checked := False;
+  FMenuItemTorrentFilesTreeShowFiles.Checked := False;
+  FMenuItemTorrentFilesTreeShowTrackers.Checked := False;
+  //Update the TorrentFilesTree
+  //  MenuItemTorrentFilesTreeSyncWithPopupMenu;
+
+  if not assigned(FTreeNodeRoot) then
+    exit;
+
+  //how many torrent files are there.
+  CountTorrents := FTreeNodeRoot.Count;
+  if CountTorrents = 0 then
+    exit;
+
+  //Show the torrent files names only.
+  for i := 0 to CountTorrents - 1 do
+  begin
+    FTreeNodeRoot.Items[i].Collapse(True);
+  end;
+
+end;
+
+procedure Tcontroler_treeview_torrent_data.MenuItemTorrentFilesTreeShowAllClick(
+  Sender: TObject);
+begin
+  //show everything
+  if assigned(FTreeNodeRoot) then
+    FTreeNodeRoot.Expand(True);
+
+  //user what to see all the items.
+  //All the popup menu item must first be checked.
+  FMenuItemTorrentFilesTreeShowInfo.Checked := True;
+  FMenuItemTorrentFilesTreeShowFiles.Checked := True;
+  FMenuItemTorrentFilesTreeShowTrackers.Checked := True;
+  //Update the TorrentFilesTree
+  //  MenuItemTorrentFilesTreeSyncWithPopupMenu;
+end;
+
+procedure Tcontroler_treeview_torrent_data.Clear;
+begin
+  FTreeViewFileContents.Items.Clear;
+  FTreeNodeRoot := FTreeViewFileContents.Items.Add(nil, 'Torrent Files');
+  FTotalFileInsideTorrent := 0;
+  FTotalFileSizeInsideTorrent := 0;
+end;
+
+procedure Tcontroler_treeview_torrent_data.MenuItemTorrentFilesTreeSyncWithPopupMenu;
+begin
+  MenuItemTorrentFilesTreeShowOrHideItemClick(FMenuItemTorrentFilesTreeShowTrackers);
+  MenuItemTorrentFilesTreeShowOrHideItemClick(FMenuItemTorrentFilesTreeShowInfo);
+  MenuItemTorrentFilesTreeShowOrHideItemClick(FMenuItemTorrentFilesTreeShowFiles);
+end;
+
+procedure Tcontroler_treeview_torrent_data.BeginUpdate;
+begin
+  //Called before loading torrent file.
+
+  //do not update the view
+  FTreeViewFileContents.BeginUpdate;
+
+  //Clear everything before adding new torrent files
+  Clear;
+end;
+
+procedure Tcontroler_treeview_torrent_data.EndUpdate;
+begin
+  //The view can be updated again
+  FTreeViewFileContents.EndUpdate;
+
+  //Update the text about howmany files are there etc.
+  //Show the size of all the files inside the torrent
+  //http://en.wikipedia.org/wiki/Gigabyte
+  FGroupBoxTorrentContents.Caption :=
+    TORRENT_FILES_CONTENTS_FORM_CAPTION + ' (Files count: ' +
+    IntToStr(FTotalFileInsideTorrent) + ') Files sizes: ' +
+    ByteSizeToBiggerSizeFormatStr(FTotalFileSizeInsideTorrent) + '';
+
+  //Sync the popup menu with show/hide items.
+  MenuItemTorrentFilesTreeSyncWithPopupMenu;
+
+end;
+
+
+procedure Tcontroler_treeview_torrent_data.MenuItemTorrentFilesTreeShowOrHideItemClick(
+  Sender: TObject);
+var
+  i, CountTorrents, itemsNr: integer;
+  ShowNode: boolean;
+begin
+  //Show or hide all the items below the torrent files.
+
+  //Get the top node.
+  if not assigned(FTreeNodeRoot) then
+    exit;
+
+  //how many torrent files are there.
+  CountTorrents := FTreeNodeRoot.Count;
+  if CountTorrents = 0 then
+    exit;
+
+  //The tag number define if it is for files, trackers or info items
+  itemsNr := TMenuItem(Sender).tag;
+
+  //Must show or hide the items
+  ShowNode := TMenuItem(Sender).Checked;
+
+  //process all the torrent files one by one.
+  for i := 0 to CountTorrents - 1 do
+  begin
+    if ShowNode then
+    begin
+      FTreeNodeRoot.Items[i].Expand(False); //Show the torrent name + child
+      FTreeNodeRoot.Items[i].Items[itemsNr].Expand(False); //expand child
+    end
+    else
+    begin
+      FTreeNodeRoot.Items[i].Items[itemsNr].Collapse(False);
+    end;
+  end;
+end;
+
+procedure Tcontroler_treeview_torrent_data.AddOneTorrentFileDecoded(
+  DecodeTorrent: TDecodeTorrent);
+var
+  CountFiles: integer;
+  TorrentFileNameStr, TrackerStr: utf8string;
+  TreeNodeTorrent, TreeNodeFiles, TreeNodeTrackers, TreeNodeInfo: TTreeNode;
+begin
+  //---------------------  Fill the treeview with torrent files
+
+  TorrentFileNameStr := ExtractFileName(DecodeTorrent.FilenameTorrent);
+
+  //Add the torrent file name + size of all the files combined.
+  TorrentFileNameStr := TorrentFileNameStr + '  (Version: ' +
+    DecodeTorrent.TorrentVersionToString + ') SIZE: ' +
+    ByteSizeToBiggerSizeFormatStr(DecodeTorrent.TotalFileSize) +
+    '  Files: ' + IntToStr(DecodeTorrent.InfoFilesCount) + '' +
+    '  Tracker: ' + IntToStr(DecodeTorrent.TrackerList.Count) + '';
+
+
+  TreeNodeTorrent := FTreeViewFileContents.Items.AddChild(FTreeNodeRoot,
+    //FTrackerList.TorrentFileNameList[RowIndex]); //With directory path
+    TorrentFileNameStr);  //Without directory  path
+
+  //must be in this order (Files, Trackers, Info)
+  TreeNodeFiles := FTreeViewFileContents.Items.AddChild(TreeNodeTorrent,
+    'Files V' + IntToStr(DecodeTorrent.InfoFilesVersion));
+
+  TreeNodeTrackers := FTreeViewFileContents.Items.AddChild(TreeNodeTorrent,
+    'Trackers');
+  TreeNodeInfo := FTreeViewFileContents.Items.AddChild(TreeNodeTorrent, 'Info');
+
+  //Show all the files inside the torrent
+  if DecodeTorrent.InfoFilesCount > 0 then
+  begin
+    for CountFiles := 0 to DecodeTorrent.InfoFilesCount - 1 do
+    begin
+      FTreeViewFileContents.Items.AddChild(TreeNodeFiles,
+        DecodeTorrent.InfoFilesNameIndex(CountFiles) + '     SIZE: ' +
+        ByteSizeToBiggerSizeFormatStr(DecodeTorrent.InfoFilesLengthIndex(CountFiles)));
+    end;
+  end;
+
+  //Show a how many files are there
+  TreeNodeFiles.Text := TreeNodeFiles.Text + ' (' + IntToStr(TreeNodeFiles.Count) + ')';
+
+  //Show all the trackers inside the torrent
+  for TrackerStr in DecodeTorrent.TrackerList do
+  begin
+    FTreeViewFileContents.Items.AddChild(TreeNodeTrackers, TrackerStr);
+  end;
+
+  //Show a how many trackers are there
+  TreeNodeTrackers.Text := TreeNodeTrackers.Text + ' (' +
+    IntToStr(TreeNodeTrackers.Count) + ')';
+
+
+  //Show all the info of torrent
+  FTreeViewFileContents.Items.AddChild(TreeNodeInfo, 'Name: ' + DecodeTorrent.Name);
+
+  FTreeViewFileContents.Items.AddChild(TreeNodeInfo, 'Comment: ' +
+    DecodeTorrent.Comment);
+  FTreeViewFileContents.Items.AddChild(TreeNodeInfo, 'Info Hash V1: ' +
+    DecodeTorrent.InfoHash_V1);
+  FTreeViewFileContents.Items.AddChild(TreeNodeInfo, 'Info Hash V2: ' +
+    DecodeTorrent.InfoHash_V2);
+  FTreeViewFileContents.Items.AddChild(TreeNodeInfo, 'Created On: ' +
+    DateTimeToStr(DecodeTorrent.CreatedDate));
+  FTreeViewFileContents.Items.AddChild(TreeNodeInfo, 'Created By: ' +
+    DecodeTorrent.CreatedBy);
+  FTreeViewFileContents.Items.AddChild(TreeNodeInfo, 'Piece Lenght: ' +
+    IntToStr(DecodeTorrent.PieceLenght div 1024) + ' KiB');
+  if DecodeTorrent.PrivateTorrent then
+  begin
+    FTreeViewFileContents.Items.AddChild(TreeNodeInfo, 'Private: yes');
+  end
+  else
+  begin
+    FTreeViewFileContents.Items.AddChild(TreeNodeInfo, 'Private: no');
+  end;
+  // some private torrent have info:source
+  if DecodeTorrent.InfoSource <> '' then
+  begin
+    FTreeViewFileContents.Items.AddChild(TreeNodeInfo, 'Source: ' +
+      DecodeTorrent.InfoSource);
+  end;
+
+  if DecodeTorrent.MetaVersion > 0 then
+  begin // 'meta version'is in torrent file present
+    FTreeViewFileContents.Items.AddChild(TreeNodeInfo, 'Meta Version: ' +
+      IntToStr(DecodeTorrent.MetaVersion));
+  end;
+
+  FTreeViewFileContents.Items.AddChild(TreeNodeInfo, 'Padding (beb 47): ' +
+    DecodeTorrent.PaddingToString);
+
+  //All the files count inside the torrent must be added to FTotalFileInsideTorrent
+  Inc(FTotalFileInsideTorrent, DecodeTorrent.InfoFilesCount);
+
+  //The file size of all files inside the torrent must be added to FTotalFileSizeInsideTorrent
+  Inc(FTotalFileSizeInsideTorrent, DecodeTorrent.TotalFileSize);
+
+end;
+
+
+
+end.
diff --git a/source/controlergridtorrentdata.pas b/source/code/controlergridtorrentdata.pas
similarity index 79%
rename from source/controlergridtorrentdata.pas
rename to source/code/controlergridtorrentdata.pas
index 3f80001..a885460 100644
--- a/source/controlergridtorrentdata.pas
+++ b/source/code/controlergridtorrentdata.pas
@@ -1,3 +1,4 @@
+// SPDX-License-Identifier: MIT
 unit controlergridtorrentdata;
 
 {
@@ -27,14 +28,17 @@   TControlerGridTorrentData = class
     //The collumn must be in this design order.
     FTorrentFile,           //0
     FInfoFileName,          //1
-    FInfoHash,              //2
-    FCreatedOn,             //3
-    FCreatedBy,             //4
-    FComment,               //5
-    FPrivateTorrent,        //6
-    FPieceLength,           //7
-    FTotaSize,              //8
-    FIndexOrder             //9
+    FTorrentVersion,        //2
+    FPadding,               //3
+    FInfoHash,              //4
+    FCreatedOn,             //5
+    FCreatedBy,             //6
+    FComment,               //7
+    FPrivateTorrent,        //8
+    FInfoSource,            //9
+    FPieceLength,           //10
+    FTotaSize,              //11
+    FIndexOrder             //12
     : TGridColumn;
 
     FRowIsMovedNeedUpdate: boolean;
@@ -47,14 +51,17 @@   TControlerGridTorrentData = class
     //All the string that can be written to grid.
     TorrentFile,           //0
     InfoFileName,          //1
-    InfoHash,              //2
-    CreatedOn,             //3
-    CreatedBy,             //4
-    Comment,               //5
-    PrivateTorrent,        //6
-    PieceLength,           //7
-    TotaSize,              //8
-    IndexOrder             //9
+    TorrentVersion,        //2
+    Padding,               //3
+    InfoHash,              //4
+    CreatedOn,             //5
+    CreatedBy,             //6
+    Comment,               //7
+    PrivateTorrent,        //8
+    InfoSource,            //9
+    PieceLength,           //10
+    TotaSize,              //11
+    IndexOrder             //12
     : UTF8String;
 
     procedure ClearAllImageIndex;
@@ -69,7 +76,7 @@ implementation
 
 { TControlerGridTorrentData }
 const
-  COLUMN_COUNT = 10;
+  COLUMN_COUNT = 11;
 
 procedure TControlerGridTorrentData.StringGridTorrentDataColRowMoved(Sender: TObject;
   IsColumn: boolean; sIndex, tIndex: integer);
@@ -132,11 +139,14 @@ procedure TControlerGridTorrentData.AppendRow;
   //write all the string to the cell.
   WriteCell(FTorrentFile, TorrentFile);
   WriteCell(FInfoFileName, InfoFileName);
+  WriteCell(FTorrentVersion, TorrentVersion);
+  WriteCell(FPadding, Padding);
   WriteCell(FInfoHash, InfoHash);
   WriteCell(FCreatedOn, CreatedOn);
   WriteCell(FCreatedBy, CreatedBy);
   WriteCell(FComment, Comment);
   WriteCell(FPrivateTorrent, PrivateTorrent);
+  WriteCell(FInfoSource, InfoSource);
   WriteCell(FPieceLength, PieceLength);
   WriteCell(FTotaSize, TotaSize);
   WriteCell(FIndexOrder, IndexOrder);
@@ -174,19 +184,22 @@ constructor TControlerGridTorrentData.Create(StringGridTorrentData: TStringGrid)
   FStringGridTorrentData.OnColRowMoved := @StringGridTorrentDataColRowMoved;
 
   //The view and the controler part must have the same column count.
-  Assert(FStringGridTorrentData.Columns.Count <> COLUMN_COUNT, 'Wrong column count');
+  Assert(FStringGridTorrentData.Columns.Count = COLUMN_COUNT, 'Wrong column count');
 
   //Track the column
   AddColumn(FTorrentFile, 0);
   AddColumn(FInfoFileName, 1);
-  AddColumn(FInfoHash, 2);
-  AddColumn(FCreatedOn, 3);
-  AddColumn(FCreatedBy, 4);
-  AddColumn(FComment, 5);
-  AddColumn(FPrivateTorrent, 6);
-  AddColumn(FPieceLength, 7);
-  AddColumn(FTotaSize, 8);
-  AddColumn(FIndexOrder, 9);
+  AddColumn(FTorrentVersion, 2);
+  AddColumn(FPadding, 3);
+  AddColumn(FInfoHash, 4);
+  AddColumn(FCreatedOn, 5);
+  AddColumn(FCreatedBy, 6);
+  AddColumn(FComment, 7);
+  AddColumn(FPrivateTorrent, 8);
+  AddColumn(FInfoSource, 9);
+  AddColumn(FPieceLength, 10);
+  AddColumn(FTotaSize, 11);
+  AddColumn(FIndexOrder, 12);
 
   //Fillin the tag value
   UpdateColumnTag;
diff --git a/source/code/decodetorrent.pas b/source/code/decodetorrent.pas
new file mode 100644
index 0000000..56b3b70
--- /dev/null
+++ b/source/code/decodetorrent.pas
@@ -0,0 +1,1019 @@
+// SPDX-License-Identifier: MIT
+unit DecodeTorrent;
+
+{$mode objfpc}{$H+}
+{
+ Get all the tracker list inside the torrent file.
+ And place it in TrackerList: TStringList
+
+ Modify public/private flag
+
+ Modify announce List
+
+
+ You can use bencode editor and utorrent to verify the output of this program.
+ https://sites.google.com/site/ultimasites/bencode-editor
+  }
+interface
+
+uses
+  Classes, SysUtils, contnrs, BEncode;
+
+type
+
+  TTorrentVersion = (
+    tv_V1,            //< V1 version
+    tv_V2,            //< V2 version
+    tv_Hybrid,        //< V1 + V2 hybrid
+    tv_unknown        //< Can not decode it
+    );
+
+  TDecodeTorrentFileNameAndLength = class
+    Filename: utf8string;
+    FileLength: int64;
+  end;
+
+
+  { TDecodeTorrent }
+  TDecodeTorrent = class
+  private
+    FFilenameTorrent: utf8string;
+    FMemoryStream: TMemoryStream;
+    FBEncoded: TBEncoded;
+    FObjectListFileNameAndLength: TObjectList;
+    FTotalFileSize: int64;
+    FTorrentVersion: TTorrentVersion;
+
+    //Torrent file must have 'info' item.
+    FBEncoded_Info: TBEncoded;
+    FBEncoded_Comment: TBEncoded;
+
+    FInfoHash_V1: utf8string;
+    FInfoHash_V2: utf8string;
+    FCreatedBy: utf8string;
+    FCreatedDate: TDateTime;
+    FComment: utf8string;
+    FInfoSource: utf8string;
+    FName: utf8string;
+    FPieceLenght: int64;
+    FMetaVersion: int64;
+    FPrivateTorrent: boolean;
+    FPaddingPresent_V1: boolean;
+    FPaddingPresent_V2: boolean;
+    FInfoFilesVersion: integer;
+
+    function DecodeTorrent: boolean; overload;
+
+    function isPresentInfoFiles_V1: boolean;
+    function isPresentInfoFileTree_V2: boolean;
+
+    function GetSha256(const Source: utf8string): utf8string;
+    function GetMetaVersion: int64;
+    function GetAnnounceList: boolean;
+    function GetFileList_V1: boolean;
+    function GetFileList_V2: boolean;
+    function GetOneFileTorrent: boolean;
+    function GetCreatedBy: utf8string;
+    function GetCreatedDate: TDateTime;
+    function GetComment: utf8string;
+    function GetName: utf8string;
+    function GetPieceLenght: int64;
+    function GetPrivateTorrent: boolean;
+    function GetInfoSource: utf8string;
+    procedure SetComment(const AValue: utf8string);
+  public
+    //All the trackers inside this torrent file
+    TrackerList: TStringList;
+
+    property MetaVersion: int64 read FMetaVersion;
+    property TorrentVersion: TTorrentVersion read FTorrentVersion;
+    property PaddingPresent_V1: boolean read FPaddingPresent_V1;
+    property PaddingPresent_V2: boolean read FPaddingPresent_V2;
+
+    property FilenameTorrent: utf8string read FFilenameTorrent;
+
+    property TotalFileSize: int64 read FTotalFileSize;
+
+    //Info hash
+    property InfoHash_V1: utf8string read FInfoHash_V1;
+    property InfoHash_V2: utf8string read FInfoHash_V2;
+
+    //Created by
+    property CreatedBy: utf8string read FCreatedBy;
+
+    //Create Date
+    property CreatedDate: TDateTime read FCreatedDate;
+
+    //Comment
+    property Comment: utf8string read FComment write SetComment;
+
+    //info.name
+    property Name: utf8string read FName;
+
+    //info.piecelength
+    property PieceLenght: int64 read FPieceLenght;
+
+    //public/private flag
+    property PrivateTorrent: boolean read FPrivateTorrent;
+    function RemovePrivateTorrentFlag: boolean;
+    function AddPrivateTorrentFlag: boolean;
+
+    //info.source
+    property InfoSource: utf8string read FInfoSource;
+    function InfoSourceRemove: boolean;
+    function InfoSourceAdd(const Value: utf8string): boolean;
+
+    //info.files and info. file tree
+    property InfoFilesVersion: integer read FInfoFilesVersion;
+    function InfoFilesCount: integer;
+    function InfoFilesNameIndex(index: integer): utf8string;
+    function InfoFilesLengthIndex(index: integer): int64;
+
+    //Announce list
+    function RemoveAnnounce: boolean;
+    function RemoveAnnounceList: boolean;
+    function ChangeAnnounce(const TrackerURL: utf8string): boolean;
+    function ChangeAnnounceList(StringList: TStringList): boolean;
+
+    function TorrentVersionToString: utf8string;
+    function PaddingToString: utf8string;
+
+    //Load torrent file
+    function DecodeTorrent(const Filename: utf8string): boolean; overload;
+    function DecodeTorrent(Stream: TStream): boolean; overload;
+
+    //save torrent file
+    function SaveTorrent(const Filename: utf8string): boolean;
+
+    //create/destroy class object
+    constructor Create;
+    destructor Destroy; override;
+  end;
+
+implementation
+
+uses dateutils, SHA1, DCPsha256, FileUtil, LazUTF8;
+
+function SortFileName(Item1, Item2: Pointer): integer;
+begin
+  Result := UTF8CompareText(TDecodeTorrentFileNameAndLength(Item1).Filename,
+    TDecodeTorrentFileNameAndLength(Item2).Filename);
+end;
+
+
+function Sort_(Item1, Item2: Pointer): integer;
+begin
+  Result := UTF8CompareText(TBEncodedData(Item1).Header, TBEncodedData(Item2).Header);
+end;
+
+{ TDecodeTorrent }
+constructor TDecodeTorrent.Create;
+begin
+  inherited;
+  //Every torrent have file list
+  FObjectListFileNameAndLength := TObjectList.Create;
+
+  //List for all the trackers.
+  TrackerList := TStringList.Create;
+  TrackerList.Duplicates := dupIgnore;
+  //Must keep the original order.
+  TrackerList.Sorted := False;
+
+  FMemoryStream := TMemoryStream.Create;
+
+end;
+
+destructor TDecodeTorrent.Destroy;
+begin
+  //Free all the memory we have create.
+  FObjectListFileNameAndLength.Free;
+  TrackerList.Free;
+  FMemoryStream.Free;
+
+  //FBEncoded may or may not be created.
+  if assigned(FBEncoded) then
+    FBEncoded.Free;
+  inherited;
+end;
+
+function TDecodeTorrent.DecodeTorrent(const Filename: utf8string): boolean;
+var
+  S: TFileStream;
+begin
+  FFilenameTorrent := Filename;
+  //Load torrent file in FMemoryStream. This will be process by DecodeTorrent();
+  try
+    //Support FilenameTorrent with unicode.
+    S := TFileStream.Create(FilenameTorrent, fmOpenRead or fmShareDenyWrite);
+    try
+      FMemoryStream.LoadFromStream(S);
+    finally
+      S.Free;
+    end;
+    Result := DecodeTorrent();
+  except
+    Result := False;
+  end;
+end;
+
+function TDecodeTorrent.DecodeTorrent(Stream: TStream): boolean;
+begin
+  //copy Stream -> FMemoryStream
+  try
+    FMemoryStream.Clear;
+    Stream.Seek(0, soBeginning);
+    FMemoryStream.LoadFromStream(Stream);
+    Result := DecodeTorrent();
+  except;
+    Result := False;
+  end;
+end;
+
+function TDecodeTorrent.GetAnnounceList: boolean;
+var
+  TempBEncoded: TBEncoded;
+  i, Count: integer;
+  TrackerStr: utf8string;
+begin
+  //return false, if crash at decoding. Announce is optional in torrent file.
+  TrackerList.Clear;
+  Result := True;
+  try
+    {find 'announce-list' and copy the list content to TrackerList}
+    //process 'announce'
+    TempBEncoded := FBEncoded.ListData.FindElement('announce');
+    if assigned(TempBEncoded) then
+    begin
+      TrackerList.Add(TempBEncoded.StringData);
+    end;
+
+    //process 'announce-list'
+    TempBEncoded := FBEncoded.ListData.FindElement('announce-list');
+    if assigned(TempBEncoded) then
+    begin
+      Count := TempBEncoded.ListData.Count;
+      if Count > 0 then
+      begin
+        for i := 0 to Count - 1 do
+        begin
+          //there is a list in side a list!
+          TrackerStr := TempBEncoded.ListData.Items[
+            i].Data.ListData.First.Data.StringData;
+
+          // TrackerList is not sorted. Must use IndexOf to ignore duplicated enteries.
+          if TrackerList.IndexOf(TrackerStr) < 0 then
+          begin
+            TrackerList.Add(TrackerStr);
+          end;
+
+        end;
+      end;
+    end;
+
+  except
+    Result := False;
+  end;
+end;
+
+function TDecodeTorrent.GetFileList_V1: boolean;
+var
+  P_File: Pointer;
+  P_Item: Pointer;
+  P_Path: Pointer;
+  FileLength: int64;
+  InfoFiles: TBEncoded;
+  NodeData: TBEncodedData;
+  ThisIsFileWithPadding: boolean;
+  FilenameWithPathStr: utf8string;
+  DecodeTorrentFileName: TDecodeTorrentFileNameAndLength;
+begin
+  // return false if there is no file at all. This must not be posible.
+  // info/files/path -> all the files names
+  FInfoFilesVersion := 1;
+  FObjectListFileNameAndLength.Clear;
+  FTotalFileSize := 0;
+
+  try
+    {find 'info.files' }
+    InfoFiles := FBEncoded_Info.ListData.FindElement('files');
+
+    if assigned(InfoFiles) then
+    begin //'info.files' found
+
+      for P_File in InfoFiles.ListData do
+      begin // Every file need to be process one by one
+
+        ThisIsFileWithPadding := False;
+        for P_Item in TBEncodedData(P_File).Data.ListData do
+        begin // Every item inside the file must be process one by one
+          NodeData := TBEncodedData(P_Item);
+
+          // Get the file name with path
+          if NodeData.Header = 'path' then
+          begin
+            FilenameWithPathStr := '';
+            for P_Path in NodeData.Data.ListData do
+            begin
+              FilenameWithPathStr :=
+                FilenameWithPathStr + DirectorySeparator + TBEncodedData(
+                P_Path).Data.StringData;
+            end;
+            Continue;
+          end;
+
+          // Get the file length
+          if NodeData.Header = 'length' then
+          begin
+            FileLength := NodeData.Data.IntegerData;
+            Continue;
+          end;
+
+          // check if this is padding
+          if NodeData.Header = 'attr' then
+          begin
+            ThisIsFileWithPadding := UTF8Pos('p', NodeData.Data.StringData) > 0;
+            if ThisIsFileWithPadding and not FPaddingPresent_V1 then
+            begin
+              FPaddingPresent_V1 := True;
+            end;
+          end;
+        end; // Every item inside the file
+
+        // one file is decoded. Now add it to the list
+        DecodeTorrentFileName := TDecodeTorrentFileNameAndLength.Create;
+        DecodeTorrentFileName.Filename := FilenameWithPathStr;
+        DecodeTorrentFileName.FileLength := FileLength;
+        FObjectListFileNameAndLength.Add(DecodeTorrentFileName);
+
+        //add FileLength to the total sum of all files inside the torrent.
+        if not ThisIsFileWithPadding then
+        begin
+          Inc(FTotalFileSize, FileLength);
+        end;
+
+      end; // Every file need to be process one by one
+    end; //'info.files' found
+
+    //There is file found inside the torrent?
+    Result := FObjectListFileNameAndLength.Count > 0;
+
+  except
+    //Can not found items that should be present.
+    Result := False;
+  end;
+
+end;
+
+function TDecodeTorrent.GetFileList_V2: boolean;
+var
+  BEncodedFileTree: TBEncoded;
+
+  procedure ProcessPathOrFile(const Node: TBEncoded; const path: string);
+  var
+    P_Item: Pointer;
+    FileLength: int64;
+    NodeData: TBEncodedData;
+    ThisIsFileWithPadding: boolean;
+    DecodeTorrentFileName: TDecodeTorrentFileNameAndLength;
+  begin
+    // Everyting in the tree is befDictionary
+    ThisIsFileWithPadding := False;
+    FileLength := -1; // -1 is no file length found yet.
+
+
+    for P_Item in node.ListData do
+    begin // read all the befDictionary list items one by one
+      NodeData := TBEncodedData(P_Item);
+
+      // Found a new path node
+      if NodeData.Data.Format = befDictionary then
+      begin
+        ProcessPathOrFile(NodeData.Data, path + DirectorySeparator + NodeData.Header);
+        Continue;
+      end;
+
+      // check if this present dictionary is a padding node
+      if (NodeData.Data.Format = befString) and (NodeData.Header = 'attr') then
+      begin
+        ThisIsFileWithPadding := (UTF8Pos('p', NodeData.Data.StringData) > 0);
+        if ThisIsFileWithPadding and not FPaddingPresent_V2 then
+        begin
+          FPaddingPresent_V2 := True;
+        end;
+        Continue;
+      end;
+
+      // Found a file node? This is at the end of the tree node.
+      if (NodeData.Data.Format = befInteger) and (NodeData.Header = 'length') then
+      begin
+        FileLength := NodeData.Data.IntegerData;
+      end;
+
+    end; // read all the befDictionary list items one by one
+
+    // One dictionary list have been process
+    // Is this a dictionary list with a file inside?
+    if FileLength >= 0 then
+    begin
+      DecodeTorrentFileName := TDecodeTorrentFileNameAndLength.Create;
+      DecodeTorrentFileName.Filename := ExtractFileDir(path);
+      DecodeTorrentFileName.FileLength := FileLength;
+      FObjectListFileNameAndLength.Add(DecodeTorrentFileName);
+
+      //add FileLength to the total sum of all files inside the torrent.
+      if not ThisIsFileWithPadding then
+      begin
+        Inc(FTotalFileSize, DecodeTorrentFileName.FileLength);
+      end;
+    end;
+
+  end;
+
+begin
+  Result := False;
+  FInfoFilesVersion := 2;
+  FObjectListFileNameAndLength.Clear;
+  FTotalFileSize := 0;
+  try
+    {find 'info.file tree' }
+    BEncodedFileTree := FBEncoded_Info.ListData.FindElement('file tree');
+
+    if assigned(BEncodedFileTree) then
+    begin //'info.file tree' found
+      ProcessPathOrFile(BEncodedFileTree, '');
+    end;
+
+    //There is file found inside the torrent?
+    Result := FObjectListFileNameAndLength.Count > 0;
+
+  except
+    //Can not found items that should be present.
+    Result := False;
+  end;
+
+end;
+
+function TDecodeTorrent.GetOneFileTorrent: boolean;
+var
+  Filename: utf8string;
+  DecodeTorrentFileName: TDecodeTorrentFileNameAndLength;
+  TempBEncoded: TBEncoded;
+begin
+  try
+    // This is a torrent without file list/tree
+    TempBEncoded := FBEncoded_Info.ListData.FindElement('length');
+    Result := assigned(TempBEncoded);
+    if Result then
+    begin
+      FInfoFilesVersion := 1;
+      FObjectListFileNameAndLength.Clear;
+      Filename := FBEncoded_Info.ListData.FindElement('name').StringData;
+      DecodeTorrentFileName := TDecodeTorrentFileNameAndLength.Create;
+      DecodeTorrentFileName.Filename := Filename;
+      DecodeTorrentFileName.FileLength := TempBEncoded.IntegerData;
+      FObjectListFileNameAndLength.Add(DecodeTorrentFileName);
+      FTotalFileSize := TempBEncoded.IntegerData;
+    end;
+  except
+    Result := False;
+  end;
+end;
+
+function TDecodeTorrent.DecodeTorrent: boolean;
+begin
+  Result := False;
+  try
+    //Free the old one before creating a new one
+    if assigned(FBEncoded) then
+    begin
+      FreeAndNil(FBEncoded);
+    end;
+
+    // Clear List that will be filed later.
+    TrackerList.Clear;
+    FObjectListFileNameAndLength.Clear;
+
+    // Reset to default value
+    FTotalFileSize := 0;
+    FTorrentVersion := tv_unknown;
+    FPaddingPresent_V1 := False;
+    FPaddingPresent_V2 := False;
+
+    //the torrent file inside FMemoryStream -> BEnencode it
+    FMemoryStream.Position := 0;
+    FBEncoded := TBEncoded.Create(FMemoryStream);
+
+    //torrent file MUST begin with befDictionary.
+    if FBEncoded.Format <> befDictionary then
+      exit; //error
+
+    //torrent MUST have 'info'
+    FBEncoded_Info := FBEncoded.ListData.FindElement('info');
+    if not assigned(FBEncoded_Info) then
+      exit; //error
+
+    // Is this V1,V2 or hybrid torrent type?
+    if isPresentInfoFiles_V1 then FTorrentVersion := tv_V1;
+    if isPresentInfoFileTree_V2 then
+    begin
+      if FTorrentVersion = tv_V1 then
+        FTorrentVersion := tv_Hybrid
+      else
+        FTorrentVersion := tv_V2;
+    end;
+
+    //Accept torrent only when there is no issue in reading AnnounceList and file list
+    if GetAnnounceList then
+    begin
+      case FTorrentVersion of
+        tv_V1: Result := GetFileList_V1;
+        tv_V2: Result := GetFileList_V2;
+        tv_Hybrid:
+        begin // Only V2 is actualy used. V1 need to be read to look for padding.
+          Result := GetFileList_V1;
+          if Result then GetFileList_V2;
+        end;
+        else
+          Assert(False, 'Missing torrent version');
+      end;
+    end;
+
+    if not Result then
+    begin // There is nothing found in tree list. Maybe this is a Torrent with one file?
+      Result := GetOneFileTorrent;
+      if Result then FTorrentVersion := tv_V1;
+    end;
+
+    //    FInfoHash_V1 := GetInfoHash;
+    FCreatedBy := GetCreatedBy;
+    FCreatedDate := GetCreatedDate;
+    FComment := GetComment;
+    FName := GetName;
+    FPieceLenght := GetPieceLenght;
+    FPrivateTorrent := GetPrivateTorrent;
+    FInfoSource := GetInfoSource;
+    FMetaVersion := GetMetaVersion;
+  except
+    Result := False;
+  end;
+end;
+
+function TDecodeTorrent.isPresentInfoFiles_V1: boolean;
+var
+  Info: TBEncoded;
+  str: utf8string;
+begin
+  try
+    {find 'info.files' }
+    Info := FBEncoded_Info.ListData.FindElement('files');
+    Result := assigned(info);
+    if Result then
+    begin
+      str := '';
+      TBEncoded.Encode(FBEncoded_Info, str);
+      FInfoHash_V1 := UpperCase(SHA1Print(SHA1String(str)));
+    end
+    else
+    begin
+      FInfoHash_V1 := 'N/A';
+    end;
+  except
+    Result := False;
+  end;
+end;
+
+function TDecodeTorrent.isPresentInfoFileTree_V2: boolean;
+var
+  Info: TBEncoded;
+  str: utf8string;
+begin
+  try
+    {find 'info.file tree' }
+    Info := FBEncoded_Info.ListData.FindElement('file tree');
+    Result := assigned(info);
+    if Result then
+    begin
+      str := '';
+      TBEncoded.Encode(FBEncoded_Info, str);
+      FInfoHash_V2 := UpperCase(GetSha256(str));
+    end
+    else
+    begin
+      FInfoHash_V2 := 'N/A';
+    end;
+  except
+    Result := False;
+  end;
+end;
+
+function TDecodeTorrent.GetSha256(const Source: utf8string): utf8string;
+var
+  Hash: TDCP_sha256;
+  Digest: array[0..31] of byte;
+  i: integer;
+begin
+  Digest[0] := 0; // suppres compiler warning.
+  Hash := TDCP_sha256.Create(nil);
+  Hash.Init;
+  Hash.UpdateStr(Source);
+  Hash.Final(Digest);
+  Result := '';
+  for i := Low(Digest) to High(Digest) do
+  begin
+    Result := Result + IntToHex(Digest[i], 2);
+  end;
+  Hash.Free;
+end;
+
+function TDecodeTorrent.GetMetaVersion: int64;
+var
+  TempBEncoded: TBEncoded;
+begin
+  Result := 0;
+  try
+    {find 'meta version' }
+    TempBEncoded := FBEncoded_Info.ListData.FindElement('meta version');
+    if assigned(TempBEncoded) then
+      Result := TempBEncoded.IntegerData;
+  except
+    Result := 0;
+  end;
+end;
+
+function TDecodeTorrent.InfoFilesCount: integer;
+begin
+  Result := FObjectListFileNameAndLength.Count;
+end;
+
+function TDecodeTorrent.InfoFilesNameIndex(index: integer): utf8string;
+begin
+  Result := TDecodeTorrentFileNameAndLength(
+    FObjectListFileNameAndLength[index]).Filename;
+end;
+
+function TDecodeTorrent.InfoFilesLengthIndex(index: integer): int64;
+begin
+  Result := TDecodeTorrentFileNameAndLength(FObjectListFileNameAndLength[index]).FileLength;
+end;
+
+function TDecodeTorrent.GetPrivateTorrent: boolean;
+var
+  TempBEncoded: TBEncoded;
+begin
+  Result := False;
+  try
+    {find 'private' }
+    TempBEncoded := FBEncoded_Info.ListData.FindElement('private');
+    if assigned(TempBEncoded) then
+      Result := TempBEncoded.IntegerData = 1;
+  except
+    Result := False;
+  end;
+end;
+
+function TDecodeTorrent.GetInfoSource: utf8string;
+var
+  TempBEncoded: TBEncoded;
+begin
+  Result := '';
+  try
+    {find 'source' }
+    TempBEncoded := FBEncoded_Info.ListData.FindElement('source');
+    if assigned(TempBEncoded) then
+      Result := TempBEncoded.StringData;
+  except
+    Result := '';
+  end;
+end;
+
+procedure TDecodeTorrent.SetComment(const AValue: utf8string);
+var
+  Data: TBEncodedData;
+begin
+  if FComment = AValue then
+    Exit;
+  FComment := AValue;
+  try
+    //if empty comment then remove the element.
+    if FComment = '' then
+    begin
+      FBEncoded.ListData.RemoveElement('comment');
+      exit;
+    end;
+
+    //if there is no comment element, then make new one
+    if not assigned(FBEncoded_Comment) then
+    begin
+      FBEncoded_Comment := TBEncoded.Create;
+      FBEncoded_Comment.Format := befString;
+      FBEncoded_Comment.StringData := FComment;
+      Data := TBEncodedData.Create(FBEncoded_Comment);
+      Data.Header := 'comment';
+      FBEncoded.ListData.Add(Data);
+    end
+    else
+    begin
+      FBEncoded_Comment.StringData := FComment;
+    end;
+
+  except
+    FComment := AValue;
+  end;
+
+end;
+
+{
+try
+    Encoded := TBEncoded.Create;
+    Encoded.Format := befString;
+    Encoded.StringData := TrackerURL;
+    Data := TBEncodedData.Create(Encoded);
+    Data.Header := 'announce';
+    FBEncoded.ListData.Add(Data);
+    FBEncoded.ListData.Sort(@sort_);//text must be in alfabetical order.
+except
+end;
+
+}
+
+function TDecodeTorrent.RemovePrivateTorrentFlag: boolean;
+begin
+  try
+    FBEncoded_Info.ListData.RemoveElement('private');
+    Result := True;
+  except
+    Result := False;
+  end;
+  //read databack again
+  FPrivateTorrent := GetPrivateTorrent;
+end;
+
+function TDecodeTorrent.AddPrivateTorrentFlag: boolean;
+var
+  Encoded: TBEncoded;
+  Data: TBEncodedData;
+begin//remove the old one and create a new one
+  RemovePrivateTorrentFlag;
+  try
+    Encoded := TBEncoded.Create;
+    Encoded.Format := befInteger;
+    Encoded.IntegerData := 1;
+    Data := TBEncodedData.Create(Encoded);
+    Data.Header := 'private';
+    FBEncoded_Info.ListData.Add(Data);
+    FBEncoded_Info.ListData.Sort(@sort_);//text must be in alfabetical order.
+    Result := True;
+  except
+    Result := False;
+  end;
+  //read databack again
+  FPrivateTorrent := GetPrivateTorrent;
+end;
+
+function TDecodeTorrent.InfoSourceRemove: boolean;
+begin
+  try
+    FBEncoded_Info.ListData.RemoveElement('source');
+    Result := True;
+  except
+    Result := False;
+  end;
+  //read databack again
+  FInfoSource := GetInfoSource;
+end;
+
+function TDecodeTorrent.InfoSourceAdd(const Value: utf8string): boolean;
+var
+  Encoded: TBEncoded;
+  Data: TBEncodedData;
+begin//remove the old one and create a new one
+  InfoSourceRemove;
+  try
+    Encoded := TBEncoded.Create;
+    Encoded.Format := befString;
+    Encoded.StringData := Value;
+    Data := TBEncodedData.Create(Encoded);
+    Data.Header := 'source';
+    FBEncoded_Info.ListData.Add(Data);
+    FBEncoded_Info.ListData.Sort(@sort_);//text must be in alfabetical order.
+    Result := True;
+  except
+    Result := False;
+  end;
+  FInfoSource := GetInfoSource;
+end;
+
+function TDecodeTorrent.RemoveAnnounce: boolean;
+begin
+  try
+    FBEncoded.ListData.RemoveElement('announce');
+    Result := True;
+  except
+    Result := False;
+  end;
+end;
+
+function TDecodeTorrent.RemoveAnnounceList: boolean;
+begin
+  try
+    FBEncoded.ListData.RemoveElement('announce-list');
+    Result := True;
+  except
+    Result := False;
+  end;
+end;
+
+function TDecodeTorrent.SaveTorrent(const Filename: utf8string): boolean;
+var
+  str: utf8string;
+  S: TFileStream;
+begin
+  try
+    //Encode it to string format
+    str := '';
+    TBEncoded.Encode(FBEncoded, str);
+    //Write string to file. Support filename with unicode.
+    S := TFileStream.Create(FileName, fmCreate);
+    try
+      Result := s.Write(Str[1], length(Str)) = length(Str);
+    finally
+      S.Free;
+    end;
+  except
+    Result := False;
+  end;
+end;
+
+
+
+function TDecodeTorrent.ChangeAnnounce(const TrackerURL: utf8string): boolean;
+var
+  Encoded: TBEncoded;
+  Data: TBEncodedData;
+begin//remove the old one and create a new one
+  RemoveAnnounce;
+  try
+    Encoded := TBEncoded.Create;
+    Encoded.Format := befString;
+    Encoded.StringData := TrackerURL;
+    Data := TBEncodedData.Create(Encoded);
+    Data.Header := 'announce';
+    FBEncoded.ListData.Add(Data);
+    FBEncoded.ListData.Sort(@sort_);//text must be in alfabetical order.
+    Result := True;
+  except
+    Result := False;
+  end;
+end;
+
+function TDecodeTorrent.ChangeAnnounceList(StringList: TStringList): boolean;
+var
+  EncodedListRoot, EncodedList, EncodedString: TBEncoded;
+  DataRootBEncodedData: TBEncodedData;
+  i: integer;
+begin
+  Result := True;
+  //remove the present one.
+  RemoveAnnounceList;
+  //if there is nothing in the list then exit.
+  if StringList.Count = 0 then
+    Exit;
+
+  //create a new anounce list
+  try
+    //Create the 'announce-list'
+    EncodedListRoot := TBEncoded.Create;
+    EncodedListRoot.Format := befList;
+    DataRootBEncodedData := TBEncodedData.Create(EncodedListRoot);
+    DataRootBEncodedData.Header := 'announce-list';
+    FBEncoded.ListData.Add(DataRootBEncodedData); //root
+
+    //Create list inside 'announce-list'
+    //            Str := TempBEncoded.ListData.Items[i].Data.ListData.First.Data.StringData;
+
+    for i := 0 to StringList.Count - 1 do
+    begin
+      //create a list with string element
+      EncodedList := TBEncoded.Create;
+      EncodedList.Format := befList;
+      // add list to the list via TBEncodedData
+      EncodedListRoot.ListData.Add(TBEncodedData.Create(EncodedList));
+
+      //String ellement inside the list
+      EncodedString := TBEncoded.Create;
+      EncodedString.Format := befString;
+      EncodedString.StringData := StringList[i];
+      // add string to the list via TBEncodedData
+      EncodedList.ListData.Add(TBEncodedData.Create(EncodedString));
+    end;
+
+    FBEncoded.ListData.Sort(@sort_);//text must be in alfabetical order.
+  except
+    Result := False;
+  end;
+end;
+
+function TDecodeTorrent.TorrentVersionToString: utf8string;
+begin
+  case FTorrentVersion of
+    tv_V1: Result := 'V1';
+    tv_V2: Result := 'V2';
+    tv_Hybrid: Result := 'Hybrid (V1&V2)';
+    tv_unknown: Result := 'unknown';
+    else
+      Result := 'TorrentVersionToString: unkown value';
+  end;
+end;
+
+function TDecodeTorrent.PaddingToString: utf8string;
+begin
+  case FTorrentVersion of
+    tv_V1:
+    begin
+      Result := BoolToStr(FPaddingPresent_V1, 'Yes', 'No');
+    end;
+    tv_V2:
+    begin
+      Result := BoolToStr(FPaddingPresent_V2, 'Yes', 'No');
+    end;
+    tv_Hybrid:
+    begin // Show only V2 hash. No space for both V1 and V2
+      Result := 'V1:' + BoolToStr(FPaddingPresent_V1, 'Yes', 'No') +
+        ' V2:' + BoolToStr(FPaddingPresent_V2, 'Yes', 'No');
+    end;
+    else
+      Result := 'N/A'
+  end;
+end;
+
+function TDecodeTorrent.GetCreatedBy: utf8string;
+var
+  TempBEncoded: TBEncoded;
+begin
+  Result := '';
+  try
+    TempBEncoded := FBEncoded.ListData.FindElement('created by');
+    if assigned(TempBEncoded) then
+      Result := TempBEncoded.StringData;
+  except
+    Result := '';
+  end;
+end;
+
+function TDecodeTorrent.GetCreatedDate: TDateTime;
+var
+  TempBEncoded: TBEncoded;
+begin
+  Result := 0; //Some torrent have no creation date
+  try
+    TempBEncoded := FBEncoded.ListData.FindElement('creation date');
+    if assigned(TempBEncoded) then
+      Result := UnixToDateTime(TempBEncoded.IntegerData);
+  except
+    Result := 0;
+  end;
+end;
+
+function TDecodeTorrent.GetComment: utf8string;
+begin
+  Result := '';
+  try
+    FBEncoded_Comment := FBEncoded.ListData.FindElement('comment');
+    if assigned(FBEncoded_Comment) then
+      Result := UTF8Trim(FBEncoded_Comment.StringData);
+  except
+    Result := '';
+  end;
+end;
+
+function TDecodeTorrent.GetName: utf8string;
+var
+  TempBEncoded: TBEncoded;
+begin
+  Result := '';
+  try
+    {find 'name' }
+    TempBEncoded := FBEncoded_Info.ListData.FindElement('name');
+    if assigned(TempBEncoded) then
+      Result := TempBEncoded.StringData;
+  except
+    Result := '';
+  end;
+end;
+
+function TDecodeTorrent.GetPieceLenght: int64;
+var
+  TempBEncoded: TBEncoded;
+begin
+  Result := 0;
+  try
+    {find 'piece length' }
+    TempBEncoded := FBEncoded_Info.ListData.FindElement('piece length');
+    if assigned(TempBEncoded) then
+      Result := TempBEncoded.IntegerData;
+  except
+    Result := 0;
+  end;
+end;
+
+end.
diff --git a/source/code/main.lfm b/source/code/main.lfm
new file mode 100644
index 0000000..3837612
--- /dev/null
+++ b/source/code/main.lfm
@@ -0,0 +1,497 @@
+object FormTrackerModify: TFormTrackerModify
+  Left = 429
+  Height = 607
+  Top = 183
+  Width = 1179
+  AllowDropFiles = True
+  Caption = 'Bittorrent Tracker Editor'
+  ClientHeight = 607
+  ClientWidth = 1179
+  Constraints.MinHeight = 500
+  Constraints.MinWidth = 700
+  Font.Height = -11
+  Menu = MainMenu
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  OnDropFiles = FormDropFiles
+  OnShow = FormShow
+  Position = poScreenCenter
+  LCLVersion = '3.6.0.0'
+  object PageControl: TPageControl
+    Left = 0
+    Height = 607
+    Top = 0
+    Width = 1179
+    ActivePage = TabSheetTrackersList
+    Align = alClient
+    TabIndex = 0
+    TabOrder = 0
+    object TabSheetTrackersList: TTabSheet
+      Caption = 'Trackers List'
+      ClientHeight = 581
+      ClientWidth = 1171
+      object PanelTop: TPanel
+        Left = 0
+        Height = 581
+        Top = 0
+        Width = 1171
+        Align = alClient
+        ClientHeight = 581
+        ClientWidth = 1171
+        TabOrder = 0
+        object GroupBoxNewTracker: TGroupBox
+          Left = 1
+          Height = 201
+          Top = 1
+          Width = 1169
+          Align = alTop
+          Caption = 'Add new trackers to torrent file(s).'
+          ClientHeight = 183
+          ClientWidth = 1165
+          Constraints.MinHeight = 100
+          TabOrder = 0
+          object MemoNewTrackers: TMemo
+            Left = 0
+            Height = 183
+            Top = 0
+            Width = 1165
+            Align = alClient
+            ScrollBars = ssAutoBoth
+            TabOrder = 0
+          end
+        end
+        object GroupBoxPresentTracker: TGroupBox
+          Left = 1
+          Height = 373
+          Top = 207
+          Width = 1169
+          Align = alClient
+          Caption = 'Present trackers in all torrent files. Select the one that you want to keep.'
+          ClientHeight = 355
+          ClientWidth = 1165
+          Constraints.MinHeight = 100
+          ParentBidiMode = False
+          TabOrder = 1
+          object StringGridTrackerOnline: TStringGrid
+            Left = 0
+            Height = 355
+            Top = 0
+            Width = 1165
+            Align = alClient
+            ColCount = 0
+            FixedCols = 0
+            FixedRows = 0
+            Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goEditing, goSmoothScroll]
+            RowCount = 0
+            TabOrder = 0
+            TitleFont.Height = -11
+          end
+        end
+        object Splitter1: TSplitter
+          Cursor = crVSplit
+          Left = 1
+          Height = 5
+          Top = 202
+          Width = 1169
+          Align = alTop
+          ResizeAnchor = akTop
+        end
+      end
+    end
+    object TabSheetPublicPrivateTorrent: TTabSheet
+      Caption = 'Public/Private'
+      ClientHeight = 581
+      ClientWidth = 1171
+      object PanelTopPublicTorrent: TPanel
+        Left = 0
+        Height = 581
+        Top = 0
+        Width = 1171
+        Align = alClient
+        ClientHeight = 581
+        ClientWidth = 1171
+        TabOrder = 0
+        object GroupBoxPublicPrivateTorrent: TGroupBox
+          Left = 1
+          Height = 579
+          Top = 1
+          Width = 1169
+          Align = alClient
+          Caption = 'Checked items are public torrent.  WARNING: change public/private setting will change torrent Hash info.'
+          ClientHeight = 561
+          ClientWidth = 1165
+          TabOrder = 0
+          object CheckListBoxPublicPrivateTorrent: TCheckListBox
+            Left = 0
+            Height = 561
+            Top = 0
+            Width = 1165
+            Align = alClient
+            ItemHeight = 0
+            TabOrder = 0
+          end
+        end
+      end
+    end
+    object TabSheetTorrentData: TTabSheet
+      Caption = 'Data/Info'
+      ClientHeight = 581
+      ClientWidth = 1171
+      object StringGridTorrentData: TStringGrid
+        Left = 0
+        Height = 581
+        Top = 0
+        Width = 1171
+        Align = alClient
+        ColCount = 13
+        ColumnClickSorts = True
+        Columns = <        
+          item
+            ReadOnly = True
+            Title.Caption = 'Torrent File'
+            Width = 250
+          end        
+          item
+            ReadOnly = True
+            Title.Caption = 'Info Filename'
+            Width = 250
+          end        
+          item
+            ReadOnly = True
+            Title.Caption = 'Torrent Version'
+            Width = 100
+          end        
+          item
+            ReadOnly = True
+            Title.Caption = 'Padding (beb 47)'
+            Width = 100
+          end        
+          item
+            MaxSize = 250
+            ReadOnly = True
+            Title.Caption = 'Info Hash'
+            Width = 439
+          end        
+          item
+            ReadOnly = True
+            Title.Caption = 'Created On'
+            Width = 145
+          end        
+          item
+            ReadOnly = True
+            Title.Caption = 'Created By'
+            Width = 145
+          end        
+          item
+            Title.Caption = 'Comment (can be edited)'
+            Width = 160
+          end        
+          item
+            ReadOnly = True
+            Title.Caption = 'Private'
+            Width = 50
+          end        
+          item
+            ReadOnly = True
+            Title.Caption = 'Source'
+            Width = 64
+          end        
+          item
+            Alignment = taRightJustify
+            ReadOnly = True
+            Title.Alignment = taRightJustify
+            Title.Caption = 'Piece Length (KiB)'
+            Width = 100
+          end        
+          item
+            Alignment = taRightJustify
+            ReadOnly = True
+            Title.Alignment = taRightJustify
+            Title.Caption = 'Total size (KiB)'
+            Width = 100
+          end        
+          item
+            ReadOnly = True
+            SizePriority = 0
+            Title.Alignment = taRightJustify
+            Title.Caption = 'IndexOrder (internal used)'
+            Width = 0
+            Visible = False
+          end>
+        FixedCols = 0
+        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goColSizing, goColMoving, goEditing, goSmoothScroll]
+        RowCount = 1
+        TabOrder = 0
+        TitleFont.Height = -11
+        ColWidths = (
+          250
+          250
+          100
+          100
+          439
+          145
+          145
+          160
+          50
+          64
+          100
+          100
+          0
+        )
+      end
+    end
+    object TabSheetTorrentsContents: TTabSheet
+      Caption = 'Files/Trackers/Info'
+    end
+    object TabSheetPrivateTrackers: TTabSheet
+      Caption = 'Private Trackers'
+      ClientHeight = 581
+      ClientWidth = 1171
+      object GroupBoxItemsForPrivateTrackers: TGroupBox
+        Left = 0
+        Height = 176
+        Hint = 'Private trackers URL may not end with /announce'
+        Top = 8
+        Width = 288
+        Caption = 'Items for private trackers'
+        ClientHeight = 158
+        ClientWidth = 284
+        TabOrder = 0
+        object CheckBoxSkipAnnounceCheck: TCheckBox
+          Left = 0
+          Height = 17
+          Top = 0
+          Width = 284
+          Align = alTop
+          Caption = 'Skip Announce Check in the URL (-SAC)'
+          ParentShowHint = False
+          ShowHint = True
+          TabOrder = 0
+          OnChange = CheckBoxSkipAnnounceCheckChange
+        end
+        object GroupBoxInfoSource: TGroupBox
+          Left = 0
+          Height = 120
+          Top = 38
+          Width = 284
+          Align = alBottom
+          Caption = 'Warning: This will change the torrent info HASH'
+          ClientHeight = 102
+          ClientWidth = 280
+          TabOrder = 1
+          object CheckBoxRemoveAllSourceTag: TCheckBox
+            Left = 8
+            Height = 17
+            Top = 8
+            Width = 130
+            Caption = 'Remove all source tag'
+            TabOrder = 0
+            OnChange = CheckBoxRemoveAllSourceTagChange
+          end
+          object LabeledEditInfoSource: TLabeledEdit
+            Left = 8
+            Height = 21
+            Hint = 'Keep empty if you do not want to add or change anything.'
+            Top = 56
+            Width = 240
+            EditLabel.Height = 13
+            EditLabel.Width = 240
+            EditLabel.Caption = 'Add/Change source tag value: (-SOURCE)'
+            EditLabel.ParentColor = False
+            ParentShowHint = False
+            ShowHint = True
+            TabOrder = 1
+            TabStop = False
+            OnEditingDone = LabeledEditInfoSourceEditingDone
+          end
+        end
+      end
+    end
+  end
+  object SelectDirectoryDialog1: TSelectDirectoryDialog
+    Title = 'Select a directory with torrent files inside.'
+    Left = 560
+    Top = 24
+  end
+  object OpenDialog: TOpenDialog
+    Filter = 'torrent|*.torrent'
+    Left = 560
+    Top = 88
+  end
+  object MainMenu: TMainMenu
+    Left = 472
+    Top = 152
+    object MenuFile: TMenuItem
+      Caption = '&File'
+      object MenuOpenTorrentFile: TMenuItem
+        Caption = 'Open &one torrent file'
+        Hint = 'Select one torrent file'
+        OnClick = MenuOpenTorrentFileClick
+      end
+      object MenuFileTorrentFolder: TMenuItem
+        Caption = 'Open &multiple torrent files inside one folder'
+        Hint = 'Open multiple torrent files in folder.'
+        OnClick = MenuFileTorrentFolderClick
+      end
+      object MenuFileOpenTrackerList: TMenuItem
+        Caption = 'Open &tracker file list'
+        OnClick = MenuFileOpenTrackerListClick
+      end
+    end
+    object MenuTrackers: TMenuItem
+      Caption = '&Trackers'
+      object MenuTrackersKeepAllTrackers: TMenuItem
+        Tag = 1
+        Caption = '&Keep all the present trackers'
+        OnClick = MenuTrackersKeepOrDeleteAllTrackersClick
+      end
+      object MenuTrackersDeleteAllTrackers: TMenuItem
+        Caption = '&Delete all the present trackers'
+        OnClick = MenuTrackersKeepOrDeleteAllTrackersClick
+      end
+      object MenuTrackersSeperator1: TMenuItem
+        Caption = '-'
+      end
+      object MenuTrackersDeleteUnstableTrackers: TMenuItem
+        Caption = 'Delete UNSTABLE trackers (Data from newTrackon)'
+        OnClick = MenuTrackersDeleteTrackersWithStatusClick
+      end
+      object MenuTrackersDeleteDeadTrackers: TMenuItem
+        Tag = 1
+        Caption = 'Delete DEAD trackers (Data from newTrackon)'
+        OnClick = MenuTrackersDeleteTrackersWithStatusClick
+      end
+      object MenuTrackersDeleteUnknownTrackers: TMenuItem
+        Tag = 2
+        Caption = 'Delete UNKNOWN trackers  (Data from newTrackon)'
+        OnClick = MenuTrackersDeleteTrackersWithStatusClick
+      end
+      object MenuTrackersSeperator2: TMenuItem
+        Caption = '-'
+      end
+      object MenuTrackersAllTorrentArePublic: TMenuItem
+        Tag = 1
+        Caption = 'All torrent are &public'
+        OnClick = MenuTrackersAllTorrentArePublicPrivateClick
+      end
+      object MenuTrackersAllTorrentArePrivate: TMenuItem
+        Caption = 'All torrent are p&rivate'
+        OnClick = MenuTrackersAllTorrentArePublicPrivateClick
+      end
+    end
+    object MenuUpdateTorrent: TMenuItem
+      Caption = '&Update torrent'
+      Hint = 'Update the torrent files'
+      object MenuUpdateTorrentAddAfter: TMenuItem
+        Caption = 'Insert new trackers list &BEFORE, the original trackers list inside the torrent file'
+        object MenuUpdateTorrentAddBeforeRemoveOriginal: TMenuItem
+          Caption = 'And remove possible duplicated trackers from the ORIGINAL trackers list.(-U0)'
+          OnClick = MenuUpdateTorrentAddBeforeRemoveOriginalClick
+        end
+        object MenuUpdateTorrentAddBeforeRemoveNew: TMenuItem
+          Caption = 'And remove possible duplicated trackers from the NEW trackers list.(-U1)'
+          OnClick = MenuUpdateTorrentAddBeforeRemoveNewClick
+        end
+        object MenuUpdateTorrentAddBeforeKeepOriginalInstactAndRemoveNothing: TMenuItem
+          Caption = 'Keep original tracker list unchanged and remove nothing.(-U5)'
+          OnClick = MenuUpdateTorrentAddBeforeKeepOriginalInstactAndRemoveNothingClick
+        end
+      end
+      object MenuUpdateTorrentAddBefore: TMenuItem
+        Caption = 'Append new trackers list &AFTER, the original trackers list inside the torrent file.'
+        object MenuUpdateTorrentAddAfterRemoveOriginal: TMenuItem
+          Caption = 'And remove possible duplicated trackers from the ORIGINAL trackers list.(-U2)'
+          OnClick = MenuUpdateTorrentAddAfterRemoveOriginalClick
+        end
+        object MenuUpdateTorrentAddAfterRemoveNew: TMenuItem
+          Caption = 'And remove possible duplicated trackers from the NEW trackers list.(-U3)'
+          OnClick = MenuUpdateTorrentAddAfterRemoveNewClick
+        end
+        object MenuUpdateTorrentAddAfterKeepOriginalInstactAndRemoveNothing: TMenuItem
+          Caption = 'Keep original tracker list unchanged and remove nothing.(-U6)'
+          OnClick = MenuUpdateTorrentAddAfterKeepOriginalInstactAndRemoveNothingClick
+        end
+      end
+      object MenuUpdateTorrentSort: TMenuItem
+        Caption = '&Sort the trackers list by name.(-U4)'
+        OnClick = MenuUpdateTorrentSortClick
+      end
+      object MenuUpdateRandomize: TMenuItem
+        Caption = '&Randomize the trackers list.(-U7)'
+        OnClick = MenuUpdateRandomizeClick
+      end
+    end
+    object MenuOnlineCheck: TMenuItem
+      Caption = 'Online Check'
+      object MenuItemOnlineCheckDownloadNewTrackon: TMenuItem
+        Caption = 'Check Status Trackers (From newTrackon)'
+        OnClick = MenuItemOnlineCheckDownloadNewTrackonClick
+      end
+      object MenuItemOnlineCheckAppendStableTrackers: TMenuItem
+        Caption = 'Append Stable Trackers (From newTrackon)'
+        OnClick = MenuItemOnlineCheckAppendStableTrackersClick
+      end
+      object MenuItemOnlineCheckSubmitNewTrackon: TMenuItem
+        Caption = 'Upload trackers to newTrackon'
+        OnClick = MenuItemOnlineCheckSubmitNewTrackonClick
+      end
+    end
+    object MenuItem1: TMenuItem
+      Caption = 'ngosang/trackerslist'
+      object MenuItemNgosangAppendBest: TMenuItem
+        Caption = 'Append best'
+        OnClick = MenuItemNgosangAppendBestClick
+      end
+      object MenuItemNgosangAppendAll: TMenuItem
+        Caption = 'Append all'
+        OnClick = MenuItemNgosangAppendAllClick
+      end
+      object MenuItemNgosangAppendAllUdp: TMenuItem
+        Caption = 'Append all udp'
+        OnClick = MenuItemNgosangAppendAllUdpClick
+      end
+      object MenuItemNgosangAppendAllHttp: TMenuItem
+        Caption = 'Append all http'
+        OnClick = MenuItemNgosangAppendAllHttpClick
+      end
+      object MenuItemNgosangAppendAllHttps: TMenuItem
+        Caption = 'Append all https'
+        OnClick = MenuItemNgosangAppendAllHttpsClick
+      end
+      object MenuItemNgosangAppendAllWs: TMenuItem
+        Caption = 'Append all ws'
+        OnClick = MenuItemNgosangAppendAllWsClick
+      end
+      object MenuItemNgosangAppendAllBestIp: TMenuItem
+        Caption = 'Append best ip'
+        OnClick = MenuItemNgosangAppendAllBestIpClick
+      end
+      object MenuItemNgosangAppendAllIp: TMenuItem
+        Caption = 'Append all ip'
+        OnClick = MenuItemNgosangAppendAllIpClick
+      end
+    end
+    object MenuHelp: TMenuItem
+      Caption = '&Help'
+      object MenuHelpVisitWebsite: TMenuItem
+        Caption = '&Visit website tracker editor'
+        OnClick = MenuHelpVisitWebsiteClick
+      end
+      object MenuHelpReportingIssue: TMenuItem
+        Caption = '&Reporting Issue'
+        OnClick = MenuHelpReportingIssueClick
+      end
+      object MenuHelpSeperator1: TMenuItem
+        Caption = '-'
+      end
+      object MenuHelpVisitNewTrackon: TMenuItem
+        Caption = 'Visit website new&Trackon'
+        OnClick = MenuHelpVisitNewTrackonClick
+      end
+      object MenuHelpVisitNgosang: TMenuItem
+        Caption = 'Visit website &ngosang (github)'
+        OnClick = MenuHelpVisitNgosangClick
+      end
+    end
+  end
+end
diff --git a/source/code/main.pas b/source/code/main.pas
new file mode 100644
index 0000000..60f47be
--- /dev/null
+++ b/source/code/main.pas
@@ -0,0 +1,1874 @@
+// SPDX-License-Identifier: MIT
+unit main;
+
+{
+Unicode:
+variable 'Utf8string' is the same as 'string'
+UTF8String          = type ansistring;
+All 'string' should be rename to 'UTF8String' to show the intention that we should
+use UTF8 in the program.
+}
+
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls,
+  ExtCtrls, CheckLst, DecodeTorrent, LCLType, ActnList, Menus, ComCtrls,
+  Grids, controlergridtorrentdata, torrent_miscellaneous,
+  controler_trackerlist_online, controler_treeview_torrent_data, ngosang_trackerslist;
+
+type
+
+
+  { TFormTrackerModify }
+
+  TFormTrackerModify = class(TForm)
+    CheckBoxRemoveAllSourceTag: TCheckBox;
+    CheckBoxSkipAnnounceCheck: TCheckBox;
+    CheckListBoxPublicPrivateTorrent: TCheckListBox;
+    GroupBoxInfoSource: TGroupBox;
+    GroupBoxItemsForPrivateTrackers: TGroupBox;
+    GroupBoxPublicPrivateTorrent: TGroupBox;
+    GroupBoxNewTracker: TGroupBox;
+    GroupBoxPresentTracker: TGroupBox;
+    LabeledEditInfoSource: TLabeledEdit;
+    MainMenu: TMainMenu;
+    MemoNewTrackers: TMemo;
+    MenuFile: TMenuItem;
+    MenuFileTorrentFolder: TMenuItem;
+    MenuFileOpenTrackerList: TMenuItem;
+    MenuHelpReportingIssue: TMenuItem;
+    MenuHelpSeperator1: TMenuItem;
+    MenuHelpVisitNewTrackon: TMenuItem;
+    MenuItem1: TMenuItem;
+    MenuHelpVisitNgosang: TMenuItem;
+    MenuItemNgosangAppendAllIp: TMenuItem;
+    MenuItemNgosangAppendAllBestIp: TMenuItem;
+    MenuItemNgosangAppendAllWs: TMenuItem;
+    MenuItemNgosangAppendAllHttps: TMenuItem;
+    MenuItemNgosangAppendAllHttp: TMenuItem;
+    MenuItemNgosangAppendAllUdp: TMenuItem;
+    MenuItemNgosangAppendBest: TMenuItem;
+    MenuItemNgosangAppendAll: TMenuItem;
+    MenuItemOnlineCheckSubmitNewTrackon: TMenuItem;
+    MenuItemOnlineCheckAppendStableTrackers: TMenuItem;
+    MenuTrackersDeleteDeadTrackers: TMenuItem;
+    MenuTrackersDeleteUnstableTrackers: TMenuItem;
+    MenuTrackersDeleteUnknownTrackers: TMenuItem;
+    MenuTrackersSeperator2: TMenuItem;
+    MenuTrackersSeperator1: TMenuItem;
+    MenuItemOnlineCheckDownloadNewTrackon: TMenuItem;
+    MenuOnlineCheck: TMenuItem;
+    MenuUpdateRandomize: TMenuItem;
+    MenuUpdateTorrentAddBeforeKeepOriginalInstactAndRemoveNothing: TMenuItem;
+    MenuUpdateTorrentAddAfterKeepOriginalInstactAndRemoveNothing: TMenuItem;
+    MenuUpdateTorrentAddBeforeRemoveOriginal: TMenuItem;
+    MenuUpdateTorrentAddAfterRemoveOriginal: TMenuItem;
+    MenuUpdateTorrentAddBeforeRemoveNew: TMenuItem;
+    MenuUpdateTorrentAddAfterRemoveNew: TMenuItem;
+    MenuUpdateTorrentSort: TMenuItem;
+    MenuUpdateTorrentAddAfter: TMenuItem;
+    MenuUpdateTorrentAddBefore: TMenuItem;
+    MenuTrackersAllTorrentArePrivate: TMenuItem;
+    MenuTrackersAllTorrentArePublic: TMenuItem;
+    MenuUpdateTorrent: TMenuItem;
+    MenuHelp: TMenuItem;
+    MenuHelpVisitWebsite: TMenuItem;
+    MenuTrackersDeleteAllTrackers: TMenuItem;
+    MenuTrackersKeepAllTrackers: TMenuItem;
+    MenuTrackers: TMenuItem;
+    MenuOpenTorrentFile: TMenuItem;
+    OpenDialog: TOpenDialog;
+    PageControl: TPageControl;
+    PanelTopPublicTorrent: TPanel;
+    PanelTop: TPanel;
+    SelectDirectoryDialog1: TSelectDirectoryDialog;
+    Splitter1: TSplitter;
+    StringGridTrackerOnline: TStringGrid;
+    StringGridTorrentData: TStringGrid;
+    TabSheetPrivateTrackers: TTabSheet;
+    TabSheetTorrentsContents: TTabSheet;
+    TabSheetTorrentData: TTabSheet;
+    TabSheetTrackersList: TTabSheet;
+    TabSheetPublicPrivateTorrent: TTabSheet;
+    procedure CheckBoxRemoveAllSourceTagChange(Sender: TObject);
+    procedure CheckBoxSkipAnnounceCheckChange(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
+
+    //Drag and drop '*.torrent' files/directory or 'tracker.txt'
+    procedure FormDropFiles(Sender: TObject; const FileNames: array of utf8string);
+
+    //At start of the program the form will be show/hide
+    procedure FormShow(Sender: TObject);
+    procedure LabeledEditInfoSourceEditingDone(Sender: TObject);
+    procedure MenuHelpReportingIssueClick(Sender: TObject);
+    procedure MenuHelpVisitNewTrackonClick(Sender: TObject);
+    procedure MenuHelpVisitWebsiteClick(Sender: TObject);
+    procedure MenuHelpVisitNgosangClick(Sender: TObject);
+    procedure MenuItemNgosangAppendAllBestIpClick(Sender: TObject);
+    procedure MenuItemNgosangAppendAllClick(Sender: TObject);
+    procedure MenuItemNgosangAppendAllHttpClick(Sender: TObject);
+    procedure MenuItemNgosangAppendAllHttpsClick(Sender: TObject);
+    procedure MenuItemNgosangAppendAllIpClick(Sender: TObject);
+    procedure MenuItemNgosangAppendAllUdpClick(Sender: TObject);
+    procedure MenuItemNgosangAppendAllWsClick(Sender: TObject);
+
+    procedure MenuItemNgosangAppendBestClick(Sender: TObject);
+    procedure MenuItemOnlineCheckSubmitNewTrackonClick(Sender: TObject);
+
+    //Select via menu torrent file or directory
+    procedure MenuOpenTorrentFileClick(Sender: TObject);
+    procedure MenuFileTorrentFolderClick(Sender: TObject);
+    procedure MenuFileOpenTrackerListClick(Sender: TObject);
+
+    //Menu trackers
+    procedure MenuTrackersAllTorrentArePublicPrivateClick(Sender: TObject);
+    procedure MenuTrackersKeepOrDeleteAllTrackersClick(Sender: TObject);
+    procedure MenuTrackersDeleteTrackersWithStatusClick(Sender: TObject);
+
+    //Menu update torrent
+    procedure MenuUpdateTorrentAddAfterRemoveNewClick(Sender: TObject);
+    procedure MenuUpdateTorrentAddAfterRemoveOriginalClick(Sender: TObject);
+    procedure MenuUpdateTorrentAddBeforeKeepOriginalInstactAndRemoveNothingClick(
+      Sender: TObject);
+    procedure MenuUpdateTorrentAddBeforeRemoveNewClick(Sender: TObject);
+    procedure MenuUpdateTorrentAddBeforeRemoveOriginalClick(Sender: TObject);
+    procedure MenuUpdateTorrentSortClick(Sender: TObject);
+    procedure MenuUpdateTorrentAddAfterKeepOriginalInstactAndRemoveNothingClick(
+      Sender: TObject);
+    procedure MenuUpdateRandomizeClick(Sender: TObject);
+
+    //Menu online check
+    procedure MenuItemOnlineCheckAppendStableTrackersClick(Sender: TObject);
+    procedure MenuItemOnlineCheckDownloadNewTrackonClick(Sender: TObject);
+  private
+    { private declarations }
+
+    FTrackerList: TTrackerList;
+    FControlerTrackerListOnline: TControlerTrackerListOnline;
+    Fcontroler_treeview_torrent_data: Tcontroler_treeview_torrent_data;
+    FDownloadStatus: boolean;
+
+    FngosangTrackerList: TngosangTrackerList;
+    // is the present torrent file being process
+    FDecodePresentTorrent: TDecodeTorrent;
+
+    FDragAndDropStartUp, // user have start the program via Drag And Drop
+    FConsoleMode, //user have start the program in console mode
+    FFilePresentBanByUserList//There is a file 'remove_trackers.txt' detected
+    : boolean;
+
+    FFolderForTrackerListLoadAndSave: string;
+    FLogFile, FTrackerFile: TextFile;
+    FProcessTimeStart, FProcessTimeTotal: TDateTime;
+    FControlerGridTorrentData: TControlerGridTorrentData;
+    function CheckForAnnounce(const TrackerURL: utf8string): boolean;
+    procedure AppendTrackersToMemoNewTrackers(TrackerList: TStringList);
+    procedure ShowUserErrorMessage(ErrorText: string; const FormText: string = '');
+    function TrackerWithURLAndAnnounce(const TrackerURL: utf8string): boolean;
+    procedure UpdateTorrent;
+    procedure ShowHourGlassCursor(HourGlass: boolean);
+    procedure ViewUpdateBegin;
+    procedure ViewUpdateOneTorrentFileDecoded;
+    procedure ViewUpdateEnd;
+    procedure ViewUpdateFormCaption;
+    procedure ClearAllTorrentFilesNameAndTrackerInside;
+    procedure SaveTrackerFinalListToFile;
+    procedure ConsoleModeOrDragAndDropStartupMode;
+    procedure UpdateViewRemoveTracker;
+    function ReloadAllTorrentAndRefreshView: boolean;
+    function AddTorrentFileList(TorrentFileNameStringList: TStringList): boolean;
+    function ReadAddTrackerFileFromUser(const FileName: utf8string): boolean;
+    function LoadTorrentViaDir(const Dir: utf8string): boolean;
+    function DecodeTorrentFile(const FileName: utf8string): boolean;
+    procedure UpdateTrackerInsideFileList;
+    procedure UpdateTorrentTrackerList;
+    procedure ShowTrackerInsideFileList;
+    function TestConnectionSSL: boolean;
+
+    procedure CheckedOnOffAllTrackers(Value: boolean);
+    function CopyUserInputNewTrackersToList(Temporary_SkipAnnounceCheck: boolean =
+      False): boolean;
+    procedure LoadTrackersTextFileAddTrackers(Temporary_SkipAnnounceCheck: boolean);
+    procedure LoadTrackersTextFileRemoveTrackers;
+  public
+    { public declarations }
+  end;
+
+var
+  FormTrackerModify: TFormTrackerModify;
+
+implementation
+
+uses fphttpclient, LCLIntf, lazutf8, LazFileUtils, trackerlist_online, LCLVersion;
+
+const
+  RECOMENDED_TRACKERS: array[0..2] of utf8string =
+    (
+    'udp://tracker.coppersurfer.tk:6969/announce',
+    'udp://tracker.opentrackr.org:1337/announce',
+    'wss://tracker.openwebtorrent.com'
+    );
+
+  //program name and version (http://semver.org/)
+  PROGRAM_VERSION = '1.33.1';
+
+  FORM_CAPTION = 'Bittorrent tracker editor (' + PROGRAM_VERSION +
+    '/LCL ' + lcl_version + '/FPC ' + {$I %FPCVERSION%} + ')';
+
+  GROUPBOX_PRESENT_TRACKERS_CAPTION =
+    'Present trackers in all torrent files. Select the one that you want to keep. And added to all torrent files.';
+
+{$R *.lfm}
+
+{ TFormTrackerModify }
+
+procedure TFormTrackerModify.FormCreate(Sender: TObject);
+begin
+  //Test the working for SSL connection
+  if TestConnectionSSL then
+  begin
+    // shutdown the GUI program
+    Application.terminate;
+    Exit;
+  end;
+
+  {$IFDEF LINUX}
+  // If it is a Ubuntu snap program, save it a special folder
+   FFolderForTrackerListLoadAndSave := GetEnvironmentVariable('SNAP_USER_COMMON');
+  // If it is a flatpak program, save it in a special folder
+   if GetEnvironmentVariable('container') = 'flatpak' then
+   begin
+     FFolderForTrackerListLoadAndSave := GetEnvironmentVariable('XDG_DATA_HOME');
+   end;
+   // If it is a appimage program, save it in a present folder.
+   if GetEnvironmentVariable('APPIMAGE') <> '' then
+   begin // OWD = Path to working directory at the time the AppImage is called
+     FFolderForTrackerListLoadAndSave := GetEnvironmentVariable('OWD');
+   end;
+   if FFolderForTrackerListLoadAndSave = '' then
+   begin
+     // No container detected. Save in the same place as the application file
+     FFolderForTrackerListLoadAndSave := ExtractFilePath(Application.ExeName);
+   end
+   else
+   begin
+     // Program run in a container. Must load file from a dedicated folder.
+     FFolderForTrackerListLoadAndSave := AppendPathDelim(FFolderForTrackerListLoadAndSave);
+   end;
+  {$ELSE}
+  // Save at the same place as the application file
+  FFolderForTrackerListLoadAndSave := ExtractFilePath(Application.ExeName);
+  {$ENDIF}
+
+  //Create controler for StringGridTorrentData
+  FControlerGridTorrentData := TControlerGridTorrentData.Create(StringGridTorrentData);
+
+  // Default there is an announce check
+  FTrackerList.SkipAnnounceCheck := False;
+
+  // Default do not add source tag to the info.
+  FTrackerList.SourceTag := '';
+
+  //Log file output string List.
+  FTrackerList.LogStringList := TStringList.Create;
+
+  //Create filename list for all the torrent files.
+  FTrackerList.TorrentFileNameList := TStringList.Create;
+  FTrackerList.TorrentFileNameList.Duplicates := dupIgnore;
+  //Must NOT be sorted. Must in sync with CheckListBoxPublicPrivateTorrent.
+  FTrackerList.TorrentFileNameList.Sorted := False;
+
+  //Create ban tracker list where the user can manualy add items to it.
+  FTrackerList.TrackerBanByUserList := TStringList.Create;
+  FTrackerList.TrackerBanByUserList.Duplicates := dupIgnore;
+  FTrackerList.TrackerBanByUserList.Sorted := False;
+
+  //Create deselect tracker list where the user select via user interface CheckBoxRemoveAllSourceTag
+  FTrackerList.TrackerManualyDeselectedByUserList := TStringList.Create;
+  FTrackerList.TrackerManualyDeselectedByUserList.Duplicates := dupIgnore;
+  FTrackerList.TrackerManualyDeselectedByUserList.Sorted := False;
+
+  //Create tracker list where the user can manualy add items to it
+  FTrackerList.TrackerAddedByUserList := TStringList.Create;
+  FTrackerList.TrackerAddedByUserList.Duplicates := dupIgnore;
+  //Trackers List added by user must keep in the same order.
+  FTrackerList.TrackerAddedByUserList.Sorted := False;
+
+  //drag and drop tracker list will accept duplicates in memo text, if false. Need to check out why.
+
+  //Create tracker list where all the trackers from all the torrent files are collected
+  FTrackerList.TrackerFromInsideTorrentFilesList := TStringList.Create;
+  FTrackerList.TrackerFromInsideTorrentFilesList.Duplicates := dupIgnore;
+  //Must be sorted. is visible to user. In tracker list tab page.
+  FTrackerList.TrackerFromInsideTorrentFilesList.Sorted := True;
+
+  //Create tracker list that combine all other together.
+  FTrackerList.TrackerFinalList := TStringList.Create;
+  FTrackerList.TrackerFinalList.Duplicates := dupIgnore;
+  //must NOT be sorted. Must keep the original order intact.
+  FTrackerList.TrackerFinalList.Sorted := False;
+
+  //Decoding class for torrent.
+  FDecodePresentTorrent := TDecodeTorrent.Create;
+
+  //Create view for trackerURL with CheckBoxRemoveAllSourceTag
+  FControlerTrackerListOnline :=
+    TControlerTrackerListOnline.Create(StringGridTrackerOnline,
+    FTrackerList.TrackerFromInsideTorrentFilesList, @TrackerWithURLAndAnnounce);
+
+  //Create view for treeview data of all the torrent files
+  Fcontroler_treeview_torrent_data :=
+    Tcontroler_treeview_torrent_data.Create(TabSheetTorrentsContents);
+
+  //start the program at mimimum visual size. (this is optional)
+  Width := Constraints.MinWidth;
+  Height := Constraints.MinHeight;
+
+  //there must be two command line or more for a console mode.
+  //one is for drag and drop via shortcut in windows mode.
+  FConsoleMode := ParamCount >= 2;
+  FDragAndDropStartUp := ParamCount = 1;
+
+  //Show the default trackers
+  LoadTrackersTextFileAddTrackers(True);
+
+  //Load the unwanted trackers list.
+  LoadTrackersTextFileRemoveTrackers;
+
+  //Create download for ngosang tracker list
+  FngosangTrackerList := TngosangTrackerList.Create;
+
+  //Start program in console mode ( >= 2)
+  //or in windows mode via shortcut with drag/drop ( = 1)
+  if ParamCount > 0 then
+  begin
+    ConsoleModeOrDragAndDropStartupMode;
+  end;
+
+  //There should be no more exception made for the drag and drop
+  FDragAndDropStartUp := False;
+
+  //Update some captions
+  ViewUpdateFormCaption;
+  GroupBoxPresentTracker.Caption := GROUPBOX_PRESENT_TRACKERS_CAPTION;
+end;
+
+procedure TFormTrackerModify.CheckBoxSkipAnnounceCheckChange(Sender: TObject);
+begin
+  FTrackerList.SkipAnnounceCheck := CheckBoxSkipAnnounceCheck.Checked;
+  ViewUpdateFormCaption;
+end;
+
+procedure TFormTrackerModify.CheckBoxRemoveAllSourceTagChange(Sender: TObject);
+begin
+  FTrackerList.RemoveAllSourceTag := TCheckBox(Sender).Checked;
+  LabeledEditInfoSource.Enabled := not FTrackerList.RemoveAllSourceTag;
+end;
+
+procedure TFormTrackerModify.FormDestroy(Sender: TObject);
+begin
+  //The program is being closed. Free all the memory.
+  FngosangTrackerList.Free;
+  FTrackerList.LogStringList.Free;
+  FTrackerList.TrackerFinalList.Free;
+  FDecodePresentTorrent.Free;
+  FTrackerList.TrackerAddedByUserList.Free;
+  FTrackerList.TrackerBanByUserList.Free;
+  FTrackerList.TrackerFromInsideTorrentFilesList.Free;
+  FTrackerList.TorrentFileNameList.Free;
+  FControlerGridTorrentData.Free;
+  FTrackerList.TrackerManualyDeselectedByUserList.Free;
+  FControlerTrackerListOnline.Free;
+end;
+
+procedure TFormTrackerModify.MenuFileTorrentFolderClick(Sender: TObject);
+begin
+  ClearAllTorrentFilesNameAndTrackerInside;
+  ViewUpdateBegin;
+  //User what to select one torrent file. Show the user dialog file selection.
+  SelectDirectoryDialog1.InitialDir := ExtractFilePath(Application.ExeName);
+  if SelectDirectoryDialog1.Execute then
+  begin
+    ShowHourGlassCursor(True);
+    LoadTorrentViaDir(SelectDirectoryDialog1.FileName);
+    ShowHourGlassCursor(False);
+  end;
+  ViewUpdateEnd;
+end;
+
+procedure TFormTrackerModify.MenuHelpVisitWebsiteClick(Sender: TObject);
+begin
+  //There is no help file in this progam. Show user main web site.
+  OpenURL('https://github.com/GerryFerdinandus/bittorrent-tracker-editor');
+end;
+
+procedure TFormTrackerModify.MenuHelpVisitNgosangClick(Sender: TObject);
+begin
+  //newTrackon trackers is being used in this program.
+  OpenURL('https://github.com/ngosang/trackerslist');
+end;
+
+procedure TFormTrackerModify.MenuItemNgosangAppendAllBestIpClick(Sender: TObject);
+begin
+  AppendTrackersToMemoNewTrackers(FngosangTrackerList.TrackerList_Best_IP);
+end;
+
+procedure TFormTrackerModify.MenuItemNgosangAppendAllClick(Sender: TObject);
+begin
+  AppendTrackersToMemoNewTrackers(FngosangTrackerList.TrackerList_All);
+end;
+
+procedure TFormTrackerModify.MenuItemNgosangAppendAllHttpClick(Sender: TObject);
+begin
+  AppendTrackersToMemoNewTrackers(FngosangTrackerList.TrackerList_All_HTTP);
+end;
+
+procedure TFormTrackerModify.MenuItemNgosangAppendAllHttpsClick(Sender: TObject);
+begin
+  AppendTrackersToMemoNewTrackers(FngosangTrackerList.TrackerList_All_HTTPS);
+end;
+
+procedure TFormTrackerModify.MenuItemNgosangAppendAllIpClick(Sender: TObject);
+begin
+  AppendTrackersToMemoNewTrackers(FngosangTrackerList.TrackerList_All_IP);
+end;
+
+procedure TFormTrackerModify.MenuItemNgosangAppendAllUdpClick(Sender: TObject);
+begin
+  AppendTrackersToMemoNewTrackers(FngosangTrackerList.TrackerList_All_UDP);
+end;
+
+procedure TFormTrackerModify.MenuItemNgosangAppendAllWsClick(Sender: TObject);
+begin
+  AppendTrackersToMemoNewTrackers(FngosangTrackerList.TrackerList_All_WS);
+end;
+
+procedure TFormTrackerModify.MenuItemNgosangAppendBestClick(Sender: TObject);
+begin
+  AppendTrackersToMemoNewTrackers(FngosangTrackerList.TrackerList_Best);
+end;
+
+procedure TFormTrackerModify.MenuItemOnlineCheckSubmitNewTrackonClick(Sender: TObject);
+var
+  SendStatus: boolean;
+  TrackerSendCount: integer;
+  PopupStr: string;
+begin
+  try
+    screen.Cursor := crHourGlass;
+    SendStatus := FControlerTrackerListOnline.SubmitTrackers(
+      FTrackerList.TrackerFromInsideTorrentFilesList, TrackerSendCount);
+  finally
+    screen.Cursor := crDefault;
+  end;
+
+  if SendStatus then
+  begin
+    //Succesful upload
+    PopupStr := format('Successful upload of %d unique tracker URL', [TrackerSendCount]);
+    Application.MessageBox(
+      PChar(@PopupStr[1]),
+      '', MB_ICONINFORMATION + MB_OK);
+  end
+  else
+  begin
+    //something is wrong with uploading
+    ShowUserErrorMessage('Can not uploading the tracker list');
+  end;
+end;
+
+procedure TFormTrackerModify.AppendTrackersToMemoNewTrackers(TrackerList: TStringList);
+var
+  tracker: utf8string;
+begin
+  //Append all the trackers to MemoNewTrackers
+  MemoNewTrackers.Lines.BeginUpdate;
+  for Tracker in TrackerList do
+  begin
+    MemoNewTrackers.Lines.Add(tracker);
+  end;
+  MemoNewTrackers.Lines.EndUpdate;
+
+  //Check for error in tracker list
+  if not CopyUserInputNewTrackersToList then
+  begin
+    MemoNewTrackers.Lines.Clear;
+  end;
+end;
+
+procedure TFormTrackerModify.MenuItemOnlineCheckAppendStableTrackersClick(
+  Sender: TObject);
+begin
+  //User want to use the downloaded tracker list.
+
+  //check if tracker is already downloaded
+  if not FDownloadStatus then
+  begin
+    //Download it now.
+    MenuItemOnlineCheckDownloadNewTrackonClick(nil);
+  end;
+
+  //Append all the trackers to MemoNewTrackers
+  AppendTrackersToMemoNewTrackers(FControlerTrackerListOnline.StableTrackers);
+end;
+
+procedure TFormTrackerModify.MenuItemOnlineCheckDownloadNewTrackonClick(
+  Sender: TObject);
+begin
+  try
+    screen.Cursor := crHourGlass;
+    FDownloadStatus := FControlerTrackerListOnline.DownloadTrackers_All_Live_Stable;
+  finally
+    screen.Cursor := crDefault;
+  end;
+
+  if not FDownloadStatus then
+  begin
+    //something is wrong with downloading
+    ShowUserErrorMessage('Can not downloading the trackers from internet');
+  end;
+end;
+
+function TFormTrackerModify.CheckForAnnounce(const TrackerURL: utf8string): boolean;
+begin
+  Result := (not FTrackerList.SkipAnnounceCheck) and
+    (not WebTorrentTrackerURL(TrackerURL)) and (not FDragAndDropStartUp);
+end;
+
+procedure TFormTrackerModify.ShowUserErrorMessage(ErrorText: string;
+  const FormText: string);
+begin
+  if FConsoleMode then
+  begin
+    if FormText = '' then
+      FTrackerList.LogStringList.Add(ErrorText)
+    else
+      FTrackerList.LogStringList.Add(FormText + ' : ' + ErrorText);
+  end
+  else
+  begin
+    if FormText <> '' then
+      ErrorText := FormText + sLineBreak + ErrorText;
+    Application.MessageBox(PChar(@ErrorText[1]), '', MB_ICONERROR);
+  end;
+end;
+
+function TFormTrackerModify.TrackerWithURLAndAnnounce(
+  const TrackerURL: utf8string): boolean;
+begin
+  //Validate the begin of the URL
+  Result := ValidTrackerURL(TrackerURL);
+  if Result then
+  begin
+    if CheckForAnnounce(TrackerURL) then
+    begin
+      Result := TrackerURLWithAnnounce(TrackerURL);
+    end;
+  end;
+end;
+
+procedure TFormTrackerModify.MenuTrackersDeleteTrackersWithStatusClick(
+  Sender: TObject);
+
+  procedure UncheckTrackers(Value: TTrackerListOnlineStatus);
+  var
+    i: integer;
+  begin
+    if FControlerTrackerListOnline.Count > 0 then
+    begin
+      for i := 0 to FControlerTrackerListOnline.Count - 1 do
+      begin
+        if FControlerTrackerListOnline.TrackerStatus(i) = Value then
+        begin
+          FControlerTrackerListOnline.Checked[i] := False;
+        end;
+      end;
+    end;
+  end;
+
+begin
+  //check if tracker is already downloaded
+  if not FDownloadStatus then
+  begin
+    MenuItemOnlineCheckDownloadNewTrackonClick(nil);
+  end;
+
+  //0 = Unstable
+  //1 = Dead
+  //2 = Unknown
+  case TMenuItem(Sender).Tag of
+    0: UncheckTrackers(tos_live_but_unstable);
+    1: UncheckTrackers(tos_dead);
+    2: UncheckTrackers(tos_unknown);
+    else
+      Assert(True, 'Unknown Menu item selection')
+  end;
+end;
+
+procedure TFormTrackerModify.MenuUpdateRandomizeClick(Sender: TObject);
+begin
+  //User can select to randomize the tracker list
+  FTrackerList.TrackerListOrderForUpdatedTorrent := tloRandomize;
+  UpdateTorrent;
+end;
+
+procedure TFormTrackerModify.UpdateTorrent;
+var
+  Reply, BoxStyle, i, CountTrackers: integer;
+  PopUpMenuStr: string;
+  SomeFilesCannotBeWriten, SomeFilesAreReadOnly, AllFilesAreReadBackCorrectly: boolean;
+begin
+  //Update all the torrent files.
+
+  //The StringGridTorrentData where the comment are place by user
+  //    must be in sync again with FTrackerList.TorrentFileNameList.
+  //Undo all posible sort column used by the user. Sort it back to 'begin state'
+  FControlerGridTorrentData.ReorderGrid;
+
+  //initial value is false, will be set to true if some file fails to write
+  SomeFilesCannotBeWriten := False;
+
+  try
+
+    if not FConsoleMode then
+    begin
+      //Warn user before updating the torrent
+      BoxStyle := MB_ICONWARNING + MB_OKCANCEL;
+      Reply := Application.MessageBox('Torrent files will be change!' +
+        sLineBreak + 'Warning: There is no undo.', '', BoxStyle);
+      if Reply <> idOk then
+      begin
+        ShowHourGlassCursor(True);
+        exit;
+      end;
+    end;
+
+
+    //Must have some torrent selected
+    if (FTrackerList.TorrentFileNameList.Count = 0) then
+    begin
+      ShowUserErrorMessage('ERROR: No torrent file selected');
+      ShowHourGlassCursor(True);
+      exit;
+    end;
+
+    //User must wait for a while.
+    ShowHourGlassCursor(True);
+
+    //Copy the tracker list inside torrent -> FTrackerList.TrackerFromInsideTorrentFilesList
+    UpdateTrackerInsideFileList;
+
+    //Check for error in user tracker list -> FTrackerList.TrackerAddedByUserList
+    if not CopyUserInputNewTrackersToList then
+      Exit;
+
+    //There are 5 list that must be combine.
+    //Must use 'sort' for correct FTrackerFinalList.Count
+    CombineFiveTrackerListToOne(tloSort, FTrackerList,
+      FDecodePresentTorrent.TrackerList);
+
+    //How many trackers must be put inside each torrent file.
+    CountTrackers := FTrackerList.TrackerFinalList.Count;
+
+    //In console mode we can ignore this warning
+    if not FConsoleMode and (CountTrackers = 0) then
+    begin //Torrent without a tracker is posible. But is this what the user realy want? a DHT torrent.
+      BoxStyle := MB_ICONWARNING + MB_OKCANCEL;
+      Reply := Application.MessageBox('There are no Trackers selected!' +
+        sLineBreak + 'Warning: Create torrent file without any URL of the tracker?',
+        '', BoxStyle);
+      if Reply <> idOk then
+      begin
+        ShowHourGlassCursor(False);
+        exit;
+      end;
+      //Reset process timer
+      ShowHourGlassCursor(True);
+    end;
+
+    //initial value is false, will be set to true if read only files are found
+    SomeFilesAreReadOnly := False;
+
+    if FTrackerList.TrackerListOrderForUpdatedTorrent = tloRandomize then
+    begin
+      Randomize;
+    end;
+
+    //process all the files one by one.
+    //FTrackerList.TorrentFileNameList is not sorted it is still in sync with CheckListBoxPublicPrivateTorrent
+    for i := 0 to FTrackerList.TorrentFileNameList.Count - 1 do
+    begin //read the torrent file in FDecodePresentTorrent and modify it.
+
+      //check for read only files. It can not be updated by tracker editor
+      if (FileGetAttr(FTrackerList.TorrentFileNameList[i]) and faReadOnly) <> 0 then
+      begin
+        SomeFilesAreReadOnly := True;
+        Continue;
+      end;
+
+      //read one torrent file. If error then skip it. (continue)
+      if not FDecodePresentTorrent.DecodeTorrent(
+        FTrackerList.TorrentFileNameList[i]) then
+      begin
+        Continue;
+      end;
+
+      //tloSort it is already process. But if not tloSort then process it.
+      if FTrackerList.TrackerListOrderForUpdatedTorrent <> tloSort then
+      begin
+        //Add the new tracker before of after the original trackers inside the torrent.
+        CombineFiveTrackerListToOne(FTrackerList.TrackerListOrderForUpdatedTorrent,
+          FTrackerList, FDecodePresentTorrent.TrackerList);
+
+        //How many trackers must be put inside each torrent file
+        CountTrackers := FTrackerList.TrackerFinalList.Count;
+      end;
+
+      case CountTrackers of
+        0://if no tracker selected then delete 'announce' and 'announce-list'
+        begin
+          FDecodePresentTorrent.RemoveAnnounce;
+          FDecodePresentTorrent.RemoveAnnounceList;
+        end;
+        1://if one tracker selected then delete 'announce-list'
+        begin
+          //Announce use the only tracker present in the FTrackerFinalList. index 0
+          FDecodePresentTorrent.ChangeAnnounce(FTrackerList.TrackerFinalList[0]);
+          FDecodePresentTorrent.RemoveAnnounceList;
+        end;
+        else//More than 1 trackers selected. Create 'announce-list'
+        begin
+          //Announce use the first tracker from the list. index 0
+          FDecodePresentTorrent.ChangeAnnounce(FTrackerList.TrackerFinalList[0]);
+          FDecodePresentTorrent.ChangeAnnounceList(FTrackerList.TrackerFinalList);
+        end;
+      end;
+
+      //update the torrent public/private flag
+      if CheckListBoxPublicPrivateTorrent.Checked[i] then
+      begin
+        //Create a public torrent
+        //if private torrent then make it public torrent by removing the private flag.
+        if FDecodePresentTorrent.PrivateTorrent then
+          FDecodePresentTorrent.RemovePrivateTorrentFlag;
+      end
+      else
+      begin
+        //Create a private torrent
+        FDecodePresentTorrent.AddPrivateTorrentFlag;
+      end;
+
+      //update the comment item
+      FDecodePresentTorrent.Comment := FControlerGridTorrentData.ReadComment(i + 1);
+
+      //Update the source tag for private trackers
+      if FTrackerList.RemoveAllSourceTag then
+      begin
+        // This will delete info:source item
+        FDecodePresentTorrent.InfoSourceRemove;
+      end
+      else
+      begin
+        // Copy the new source tag, but it must not be empty.
+        // Empty FTrackerList.SourceTag is the same as do not change anything.
+        if FTrackerList.SourceTag <> '' then
+        begin
+          FDecodePresentTorrent.InfoSourceAdd(FTrackerList.SourceTag);
+        end;
+      end;
+
+      //save the torrent file.
+      if not FDecodePresentTorrent.SaveTorrent(FTrackerList.TorrentFileNameList[i]) then
+      begin
+        SomeFilesCannotBeWriten := True;
+      end;
+
+    end;//for
+
+    // Can not create a file inside the app
+    {$IFNDEF DARWIN}
+    //Create tracker.txt file
+    SaveTrackerFinalListToFile;
+    {$ENDIF}
+
+    //Show/reload the just updated torrent files.
+    AllFilesAreReadBackCorrectly := ReloadAllTorrentAndRefreshView;
+
+    //make sure cursor is default again
+  finally
+    ShowHourGlassCursor(False);
+    ViewUpdateFormCaption;
+  end;
+
+
+  if FConsoleMode then
+  begin
+    //When succesfull the log file shows, 3 lines,
+    //     OK + Count torrent files  + Count Trackers
+
+    //if there is already a items inside there there must be something wrong.
+    //Do not add 'OK'
+    if FTrackerList.LogStringList.Count = 0 then
+    begin
+      FTrackerList.LogStringList.Add(CONSOLE_SUCCESS_STATUS);
+      FTrackerList.LogStringList.Add(IntToStr(FTrackerList.TorrentFileNameList.Count));
+      FTrackerList.LogStringList.Add(IntToStr(CountTrackers));
+    end;
+  end
+  else
+  begin
+
+    case FTrackerList.TrackerListOrderForUpdatedTorrent of
+      tloInsertNewBeforeAndKeepNewIntact,
+      tloInsertNewBeforeAndKeepOriginalIntact,
+      tloAppendNewAfterAndKeepNewIntact,
+      tloAppendNewAfterAndKeepOriginalIntact,
+      tloSort,
+      tloRandomize:
+      begin
+        //Via popup show user how many trackers are inside the torrent after update.
+        PopUpMenuStr := 'All torrent file(s) have now ' + IntToStr(CountTrackers) +
+          ' trackers.';
+      end;
+
+      tloInsertNewBeforeAndKeepOriginalIntactAndRemoveNothing,
+      tloAppendNewAfterAndKeepOriginalIntactAndRemoveNothing:
+      begin
+        //Via popup show user that all the torrent files are updated.
+        PopUpMenuStr := 'All torrent file(s) are updated.';
+      end;
+      else
+      begin
+        Assert(True, 'case else: Should never been called. UpdateTorrent');
+      end;
+
+    end;//case
+
+
+    //Check if there are some error that need to be notify to the end user.
+
+    if not AllFilesAreReadBackCorrectly then
+    begin
+      //add warning if torrent files can not be read back again
+      PopUpMenuStr := PopUpMenuStr +
+        ' WARNING: Some torrent files can not be read back again after updating.';
+    end;
+
+    if SomeFilesAreReadOnly then
+    begin
+      //add warning if read only files are detected.
+      PopUpMenuStr := PopUpMenuStr +
+        ' WARNING: Some torrent files are not updated bacause they are READ-ONLY files.';
+    end;
+
+    if SomeFilesCannotBeWriten then
+    begin
+      //add warning if some files writen are failed. Someting is wrong with the disk.
+      PopUpMenuStr := PopUpMenuStr +
+        ' WARNING: Some torrent files are not updated bacause they failed at write.';
+    end;
+
+    //Show the MessageBox
+    Application.MessageBox(
+      PChar(@PopUpMenuStr[1]),
+      '', MB_ICONINFORMATION + MB_OK);
+
+  end;
+
+end;
+
+
+procedure TFormTrackerModify.SaveTrackerFinalListToFile;
+var
+  TrackerStr: utf8string;
+begin
+  //Create the tracker text file. The old one will be overwritten
+  AssignFile(FTrackerFile, FFolderForTrackerListLoadAndSave + FILE_NAME_EXPORT_TRACKERS);
+  ReWrite(FTrackerFile);
+  for TrackerStr in FTrackerList.TrackerFinalList do
+  begin
+    WriteLn(FTrackerFile, TrackerStr);
+
+    //Must create an empty line betwean trackers.
+    //Every tracker must be a seperate tracker group.
+    //This is what the user probably want.
+    //The file content can then be copy/pasted to uTorrent etc.
+    WriteLn(FTrackerFile, '');
+  end;
+  CloseFile(FTrackerFile);
+end;
+
+procedure TFormTrackerModify.ConsoleModeOrDragAndDropStartupMode;
+var
+  FileNameOrDirStr: utf8string;
+  StringList: TStringList;
+  MustExitWithErrorCode: boolean;
+begin
+  // There are two options
+  //-
+  // One parameter only. Program startup via DragAndDrop
+  //    The first parameter[1] is path to file or dir.
+
+  //-
+  // Two parameter version. Always console mode.
+  //    This is later version where there is more selection about the tracker list.
+
+  //Will be set to True when error occure.
+  MustExitWithErrorCode := False;
+  ViewUpdateBegin;
+
+  try
+    if FConsoleMode then
+    begin
+      //Create the log file. The old one will be overwritten
+      AssignFile(FLogFile, FFolderForTrackerListLoadAndSave + FILE_NAME_CONSOLE_LOG);
+      ReWrite(FLogFile);
+    end;
+
+    //Get the startup command lime parameters.
+    if ConsoleModeDecodeParameter(FileNameOrDirStr, FTrackerList) then
+    begin
+      //There is no error. Proceed with reading the torrent files
+
+      if ExtractFileExt(FileNameOrDirStr) = '' then
+      begin //There is no file extention. It must be a folder.
+        if LoadTorrentViaDir(FileNameOrDirStr) then
+        begin
+          //Show all the tracker inside the torrent files.
+          ShowTrackerInsideFileList;
+          //Some tracker must be removed. Console and windows mode.
+          UpdateViewRemoveTracker;
+
+          if FConsoleMode then
+          begin
+            //update torrent
+            UpdateTorrent;
+          end;
+
+        end
+        else
+        begin
+          //failed to load the torrent via folders
+          ShowUserErrorMessage('Can not load torrent via folder');
+        end;
+
+      end
+      else //a single torrent file is selected?
+      begin
+        if ExtractFileExt(FileNameOrDirStr) = '.torrent' then
+        begin
+          StringList := TStringList.Create;
+          try
+            //Convert Filenames to stringlist format.
+            StringList.Add(FileNameOrDirStr);
+
+            //Extract all the trackers inside the torrent file
+            if AddTorrentFileList(StringList) then
+            begin
+              //Show all the tracker inside the torrent files.
+              ShowTrackerInsideFileList;
+              //Some tracker must be removed. Console and windows mode.
+              UpdateViewRemoveTracker;
+
+              if FConsoleMode then
+              begin
+                //update torrent
+                UpdateTorrent;
+              end;
+
+            end
+            else
+            begin
+              //failed to load one torrent
+              ShowUserErrorMessage('Can not load torrent file.');
+            end;
+
+          finally
+            StringList.Free;
+          end;
+        end
+        else
+        begin //Error. this is not a torrent file
+          ShowUserErrorMessage('ERROR: No torrent file selected.');
+        end;
+      end;
+    end;
+
+    if FConsoleMode then
+    begin
+      //Write to log file. And close the file.
+      WriteLn(FLogFile, FTrackerList.LogStringList.Text);
+      CloseFile(FLogFile);
+
+      //check if log data is success full
+      //if (no data) or (not CONSOLE_SUCCESS_STATUS) then error
+      MustExitWithErrorCode := FTrackerList.LogStringList.Count = 0;
+      if not MustExitWithErrorCode then
+      begin
+        MustExitWithErrorCode := FTrackerList.LogStringList[0] <> CONSOLE_SUCCESS_STATUS;
+      end;
+    end;
+
+
+  except
+    //Shutdown the console program.
+    //This is needed or else the program will keep running forever.
+    //exit with error code
+    MustExitWithErrorCode := True;
+  end;
+
+  ViewUpdateEnd;
+
+  if MustExitWithErrorCode then
+  begin
+    //exit with error code
+    System.ExitCode := 1;
+  end;
+
+  if FConsoleMode then
+  begin
+    //Always shutdown the program when in console mode.
+    Application.terminate;
+  end;
+end;
+
+
+
+procedure TFormTrackerModify.UpdateViewRemoveTracker;
+var
+  TrackerStr: utf8string;
+  i: integer;
+begin
+  {
+    Called when user load the torrent files.
+    Trackers that are forbidden must be uncheck.
+    Trackers add by user in the memo text filed must also be removed.
+    This routine is also use in the console mode to remove trackers
+  }
+
+  //If file remove_trackers.txt is present but empty then remove all tracker inside torrent.
+  if FFilePresentBanByUserList and
+    (UTF8Trim(FTrackerList.TrackerBanByUserList.Text) = '') then
+  begin
+    CheckedOnOffAllTrackers(False);
+  end;
+
+
+  //reload the memo. This will sanitize the MemoNewTrackers.Lines.
+  if not CopyUserInputNewTrackersToList then
+    exit;
+
+  //remove all the trackers that are ban.
+  MemoNewTrackers.Lines.BeginUpdate;
+  for TrackerStr in FTrackerList.TrackerBanByUserList do
+  begin
+
+    //uncheck tracker that are listed in FTrackerList.TrackerBanByUserList
+    //the FTrackerList.TrackerFromInsideTorrentFilesList is use in the view
+    i := FTrackerList.TrackerFromInsideTorrentFilesList.IndexOf(UTF8Trim(TrackerStr));
+    if i >= 0 then //Found it.
+    begin
+      FControlerTrackerListOnline.Checked[i] := False;
+    end;
+
+    //remove tracker from user memo text that are listed in FTrackerList.TrackerBanByUserList
+    //Find TrackerStr in MemoNewTrackers.Lines and remove it.
+    i := MemoNewTrackers.Lines.IndexOf(UTF8Trim(TrackerStr));
+    if i >= 0 then //Found it.
+    begin
+      MemoNewTrackers.Lines.Delete(i);
+    end;
+  end;
+  MemoNewTrackers.Lines.EndUpdate;
+
+  //reload the memo again.
+  CopyUserInputNewTrackersToList;
+
+end;
+
+
+
+
+function TFormTrackerModify.DecodeTorrentFile(const FileName: utf8string): boolean;
+begin
+  //Called when user add torrent files
+  //False if something is wrong with decoding torrent.
+  Result := FDecodePresentTorrent.DecodeTorrent(FileName);
+  if Result then
+  begin
+    //visual update this one torrent file.
+    ViewUpdateOneTorrentFileDecoded;
+  end;
+end;
+
+procedure TFormTrackerModify.UpdateTorrentTrackerList;
+var
+  TrackerStr: utf8string;
+begin
+  //Copy the trackers found in one torrent file to FTrackerList.TrackerFromInsideTorrentFilesList
+  for TrackerStr in FDecodePresentTorrent.TrackerList do
+  begin
+    AddButIngnoreDuplicates(FTrackerList.TrackerFromInsideTorrentFilesList, TrackerStr);
+  end;
+end;
+
+procedure TFormTrackerModify.ShowTrackerInsideFileList;
+begin
+  //Called after torrent is being loaded.
+  FControlerTrackerListOnline.UpdateView;
+end;
+
+
+procedure TFormTrackerModify.CheckedOnOffAllTrackers(Value: boolean);
+var
+  i: integer;
+begin
+  //Set all the trackers CheckBoxRemoveAllSourceTag ON or OFF
+  if FControlerTrackerListOnline.Count > 0 then
+  begin
+    for i := 0 to FControlerTrackerListOnline.Count - 1 do
+    begin
+      FControlerTrackerListOnline.Checked[i] := Value;
+    end;
+  end;
+end;
+
+
+function TFormTrackerModify.CopyUserInputNewTrackersToList(
+  Temporary_SkipAnnounceCheck: boolean): boolean;
+var
+  TrackerStrLoop, TrackerStr, ErrorStr: utf8string;
+begin
+  {
+   Called after 'update torrent' is selected.
+   All the user entery from Memo text field will be add to FTrackerList.TrackerAddedByUserList.
+  }
+  FTrackerList.TrackerAddedByUserList.Clear;
+
+  //Will set to false when error is detected
+  Result := True;
+
+  for TrackerStrLoop in MemoNewTrackers.Lines do
+  begin
+    TrackerStr := UTF8trim(TrackerStrLoop);
+
+    //Skip empty line
+    if TrackerStr = '' then
+      continue;
+
+    Result := ValidTrackerURL(TrackerStr);
+    if Result then
+    begin
+      if CheckForAnnounce(TrackerStr) and (not Temporary_SkipAnnounceCheck) then
+      begin
+        Result := TrackerURLWithAnnounce(TrackerStr);
+        if not Result then
+        begin
+          ErrorStr := 'ERROR: Tracker URL must end with /announce or /announce.php';
+        end;
+      end;
+    end
+    else
+    begin
+      ErrorStr := 'ERROR: Tracker URL must begin with http://, http:// or udp://';
+    end;
+
+    if Result then
+    begin
+      AddButIngnoreDuplicates(FTrackerList.TrackerAddedByUserList, TrackerStr);
+    end
+    else
+    begin
+      //do not continue the for loop
+      break;
+    end;
+
+  end;//for loop
+
+  if Result then
+  begin
+    //Show the torrent list we have just created.
+    MemoNewTrackers.Text := FTrackerList.TrackerAddedByUserList.Text;
+  end
+  else
+  begin
+    //There is error. Show the error.
+    ShowUserErrorMessage(ErrorStr, TrackerStr);
+  end;
+end;
+
+procedure TFormTrackerModify.UpdateTrackerInsideFileList;
+var
+  i: integer;
+begin
+  //Collect data what the user want to keep
+  //Copy items from FControlerTrackerListOnline to FTrackerList.TrackerFromInsideTorrentFilesList
+  //Copy items from FControlerTrackerListOnline to FTrackerList.TrackerManualyDeselectedByUserList
+
+  FTrackerList.TrackerFromInsideTorrentFilesList.Clear;
+  FTrackerList.TrackerManualyDeselectedByUserList.Clear;
+
+  if FControlerTrackerListOnline.Count > 0 then
+  begin
+    for i := 0 to FControlerTrackerListOnline.Count - 1 do
+    begin
+
+      if FControlerTrackerListOnline.Checked[i] then
+      begin
+        //Selected by user
+        AddButIngnoreDuplicates(FTrackerList.TrackerFromInsideTorrentFilesList,
+          FControlerTrackerListOnline.TrackerURL(i)
+          );
+      end
+      else
+      begin
+        //Delected by user
+        AddButIngnoreDuplicates(
+          FTrackerList.TrackerManualyDeselectedByUserList,
+          FControlerTrackerListOnline.TrackerURL(i)
+          );
+      end;
+
+    end;
+  end;
+
+end;
+
+procedure TFormTrackerModify.LoadTrackersTextFileAddTrackers(
+  Temporary_SkipAnnounceCheck: boolean);
+var
+  i: integer;
+begin
+  //Called at the start of the program. Load a trackers list from file
+
+  //if no file is found the use the default tracker list.
+  if not ReadAddTrackerFileFromUser(FFolderForTrackerListLoadAndSave +
+    FILE_NAME_ADD_TRACKERS) then
+  begin
+    MemoNewTrackers.Lines.BeginUpdate;
+    for i := low(RECOMENDED_TRACKERS) to high(RECOMENDED_TRACKERS) do
+    begin
+      MemoNewTrackers.Lines.Add(RECOMENDED_TRACKERS[i]);
+    end;
+    MemoNewTrackers.Lines.EndUpdate;
+  end;
+
+  //Check for error in tracker list
+  if not CopyUserInputNewTrackersToList(Temporary_SkipAnnounceCheck) then
+  begin
+    MemoNewTrackers.Lines.Clear;
+  end;
+end;
+
+procedure TFormTrackerModify.LoadTrackersTextFileRemoveTrackers;
+var
+  filename: utf8string;
+begin
+  filename := FFolderForTrackerListLoadAndSave + FILE_NAME_REMOVE_TRACKERS;
+  try
+    FFilePresentBanByUserList := FileExistsUTF8(fileName);
+    if FFilePresentBanByUserList then
+    begin
+      FTrackerList.TrackerBanByUserList.LoadFromFile(fileName);
+    end;
+  except
+    FFilePresentBanByUserList := False;
+  end;
+
+  SanatizeTrackerList(FTrackerList.TrackerBanByUserList);
+
+end;
+
+
+procedure TFormTrackerModify.MenuOpenTorrentFileClick(Sender: TObject);
+var
+  StringList: TStringList;
+begin
+  ClearAllTorrentFilesNameAndTrackerInside;
+  ViewUpdateBegin;
+
+  //User what to select a torrent file. Show the user dialog.
+  OpenDialog.Title := 'Select a torrent file';
+  OpenDialog.Filter := 'torrent|*.torrent';
+  if OpenDialog.Execute then
+  begin
+    ShowHourGlassCursor(True);
+    StringList := TStringList.Create;
+    try
+      StringList.Add(UTF8Trim(OpenDialog.FileName));
+      AddTorrentFileList(StringList);
+    finally
+      StringList.Free;
+      ShowHourGlassCursor(False);
+    end;
+  end;
+  ViewUpdateEnd;
+
+end;
+
+procedure TFormTrackerModify.MenuTrackersAllTorrentArePublicPrivateClick(
+  Sender: TObject);
+var
+  i: integer;
+begin
+  //Warn user about torrent Hash.
+  if Application.MessageBox('Are you sure!' + sLineBreak +
+    'Warning: Changing the public/private torrent flag will change the info hash.',
+    '', MB_ICONWARNING + MB_OKCANCEL) <> idOk then
+    exit;
+
+  //Set all the trackers publick/private CheckBoxRemoveAllSourceTag ON or OFF
+  if CheckListBoxPublicPrivateTorrent.Count > 0 then
+  begin
+    for i := 0 to CheckListBoxPublicPrivateTorrent.Count - 1 do
+    begin
+      CheckListBoxPublicPrivateTorrent.Checked[i] := TMenuItem(Sender).Tag = 1;
+    end;
+  end;
+end;
+
+
+procedure TFormTrackerModify.MenuFileOpenTrackerListClick(Sender: TObject);
+begin
+  //Clear the present list
+  MemoNewTrackers.Lines.Clear;
+  //User what to select a tracker file. Show the user dialog.
+
+  OpenDialog.Title := 'Select a tracker list file';
+  OpenDialog.Filter := 'tracker text file|*.txt';
+  if OpenDialog.Execute then
+  begin
+    ReadAddTrackerFileFromUser(OpenDialog.FileName);
+  end;
+end;
+
+procedure TFormTrackerModify.MenuHelpReportingIssueClick(Sender: TObject);
+begin
+  OpenURL('https://github.com/GerryFerdinandus/bittorrent-tracker-editor/issues');
+end;
+
+procedure TFormTrackerModify.MenuHelpVisitNewTrackonClick(Sender: TObject);
+begin
+  //newTrackon trackers is being used in this program.
+  //User should have direct link to the website for the status of the trackers.
+  OpenURL('https://newtrackon.com/');
+end;
+
+
+function TFormTrackerModify.ReadAddTrackerFileFromUser(
+  const FileName: utf8string): boolean;
+var
+  TrackerFileList: TStringList;
+begin
+  //read the file and show it to the user.
+  TrackerFileList := TStringList.Create;
+  try
+    TrackerFileList.LoadFromFile(FileName);
+    SanatizeTrackerList(TrackerFileList);
+    MemoNewTrackers.Text := UTF8Trim(TrackerFileList.Text);
+    Result := True;
+  except
+    Result := False;
+    //suppres all error in reading the file.
+  end;
+  TrackerFileList.Free;
+
+  // It can be simpler, but does this suport UTF8?
+  //  MemoNewTrackers.Lines.LoadFromFile(FileName);
+end;
+
+procedure TFormTrackerModify.MenuTrackersKeepOrDeleteAllTrackersClick(Sender: TObject);
+begin
+  CheckedOnOffAllTrackers(TMenuItem(Sender).Tag = 1);
+end;
+
+procedure TFormTrackerModify.
+MenuUpdateTorrentAddAfterKeepOriginalInstactAndRemoveNothingClick(Sender: TObject);
+begin
+  //User have selected to add new tracker.
+  FTrackerList.TrackerListOrderForUpdatedTorrent :=
+    tloAppendNewAfterAndKeepOriginalIntactAndRemoveNothing;
+  UpdateTorrent;
+end;
+
+procedure TFormTrackerModify.MenuUpdateTorrentAddAfterRemoveNewClick(Sender: TObject);
+begin
+  //User have selected to add new tracker.
+  FTrackerList.TrackerListOrderForUpdatedTorrent :=
+    tloAppendNewAfterAndKeepOriginalIntact;
+  UpdateTorrent;
+end;
+
+procedure TFormTrackerModify.MenuUpdateTorrentAddAfterRemoveOriginalClick(
+  Sender: TObject);
+begin
+  //User have selected to add new tracker.
+  FTrackerList.TrackerListOrderForUpdatedTorrent := tloAppendNewAfterAndKeepNewIntact;
+  UpdateTorrent;
+end;
+
+procedure TFormTrackerModify.
+MenuUpdateTorrentAddBeforeKeepOriginalInstactAndRemoveNothingClick(Sender: TObject);
+begin
+  //User have selected to add new tracker.
+  FTrackerList.TrackerListOrderForUpdatedTorrent :=
+    tloInsertNewBeforeAndKeepOriginalIntactAndRemoveNothing;
+  UpdateTorrent;
+end;
+
+procedure TFormTrackerModify.MenuUpdateTorrentAddBeforeRemoveNewClick(Sender: TObject);
+begin
+  //User have selected to add new tracker.
+  FTrackerList.TrackerListOrderForUpdatedTorrent :=
+    tloInsertNewBeforeAndKeepOriginalIntact;
+  UpdateTorrent;
+end;
+
+procedure TFormTrackerModify.MenuUpdateTorrentAddBeforeRemoveOriginalClick(
+  Sender: TObject);
+begin
+  //User have selected to add new tracker.
+  FTrackerList.TrackerListOrderForUpdatedTorrent := tloInsertNewBeforeAndKeepNewIntact;
+  UpdateTorrent;
+end;
+
+procedure TFormTrackerModify.MenuUpdateTorrentSortClick(Sender: TObject);
+begin
+  //User can select to add new tracker as sorted.
+  FTrackerList.TrackerListOrderForUpdatedTorrent := tloSort;
+  UpdateTorrent;
+end;
+
+
+
+function TFormTrackerModify.LoadTorrentViaDir(const Dir: utf8string): boolean;
+var
+  TorrentFilesNameStringList: TStringList;
+begin
+  //place all the torrent file name in TorrentFilesNameStringList
+  TorrentFilesNameStringList := TStringList.Create;
+  try
+    torrent_miscellaneous.LoadTorrentViaDir(Dir, TorrentFilesNameStringList);
+    //add the torrent file name to AddTorrentFileList()
+    Result := AddTorrentFileList(TorrentFilesNameStringList);
+  finally
+    //Free all the list we temporary created.
+    TorrentFilesNameStringList.Free;
+  end;
+end;
+
+
+procedure TFormTrackerModify.FormDropFiles(Sender: TObject;
+  const FileNames: array of utf8string);
+var
+  Count: integer;
+  TorrentFileNameStringList, //for the torrent files
+  TrackerFileNameStringList //for the trackers files
+  : TStringList;
+
+  TorrentFileSelectionDetected,
+
+  //ViewUpdateBegin must be called one time. Keep track of it.
+  ViewUpdateBeginActiveOneTimeOnly: boolean;
+
+  FileNameOrDirStr: utf8string;
+begin
+  //Drag and drop a folder or files?
+
+  //Change cursor
+  ShowHourGlassCursor(True);
+
+  // Always clear the previeus torrent files selection.
+  // keep track if torrent file is detected in drag/drop
+  // need this to call ClearAllTorrentFilesNameAndTrackerInside()
+  //    this will clear the previeuse torrent loaded.
+  TorrentFileSelectionDetected := False;
+
+
+  ViewUpdateBeginActiveOneTimeOnly := False;
+
+  //Remember every file names from drag and drop.
+  //It can be mix *.torrent + trackers.txt files
+  TorrentFileNameStringList := TStringList.Create;
+  TrackerFileNameStringList := TStringList.Create;
+
+  try
+
+    //process all the files and/or directory that is drop by user.
+    for Count := low(FileNames) to High(FileNames) do
+    begin
+      FileNameOrDirStr := UTF8Trim(FileNames[Count]);
+
+
+      //if '.torrent' then add to TorrentFileNameStringList
+      if ExtractFileExt(FileNameOrDirStr) = '.torrent' then
+      begin
+
+        //if first time a torrent detected then ClearAllTorrentFilesNameAndTrackerInside
+        if not TorrentFileSelectionDetected then
+        begin
+          TorrentFileSelectionDetected := True;
+          ClearAllTorrentFilesNameAndTrackerInside;
+        end;
+
+        TorrentFileNameStringList.Add(FileNameOrDirStr);
+      end;
+
+      //if '.txt' then it must be a tracker list.
+      if ExtractFileExt(FileNameOrDirStr) = '.txt' then
+      begin
+        try
+          TrackerFileNameStringList.LoadFromFile(FileNameOrDirStr);
+          MemoNewTrackers.Append(UTF8Trim(TrackerFileNameStringList.Text));
+        except
+          //supress any error in loading the file
+          FileNameOrDirStr := FileNameOrDirStr;
+        end;
+      end;
+
+      //if there is no file extention. It must be a torrent folder.
+      if ExtractFileExt(FileNameOrDirStr) = '' then
+      begin
+
+        //if first time a torrent detected then ClearAllTorrentFilesNameAndTrackerInside
+        if not TorrentFileSelectionDetected then
+        begin
+          TorrentFileSelectionDetected := True;
+          ClearAllTorrentFilesNameAndTrackerInside;
+        end;
+
+        if not ViewUpdateBeginActiveOneTimeOnly then
+        begin
+          ViewUpdateBeginActiveOneTimeOnly := True;
+          ViewUpdateBegin;
+        end;
+
+        LoadTorrentViaDir(FileNameOrDirStr);
+
+      end;
+
+    end;//for
+
+
+    //Check for error in tracker list
+    if not CopyUserInputNewTrackersToList then
+    begin //When error clear tracker list.
+      MemoNewTrackers.Lines.Clear;
+    end;
+
+    //the torrent files we have collected here must be add to AddTorrentFileList()
+    if TorrentFileNameStringList.Count > 0 then
+    begin
+
+      if not ViewUpdateBeginActiveOneTimeOnly then
+      begin
+        ViewUpdateBeginActiveOneTimeOnly := True;
+        ViewUpdateBegin;
+      end;
+
+      AddTorrentFileList(TorrentFileNameStringList);
+
+    end;
+
+  finally
+    //Free all the list we temporary created.
+    TorrentFileNameStringList.Free;
+    TrackerFileNameStringList.Free;
+    ShowHourGlassCursor(False);
+  end;
+
+
+
+
+  //if ViewUpdateBegin is called then ViewUpdateEnd must also be called.
+  if ViewUpdateBeginActiveOneTimeOnly then
+    ViewUpdateEnd;
+
+end;
+
+procedure TFormTrackerModify.FormShow(Sender: TObject);
+begin
+  //In console mode do not show the program.
+  if FConsoleMode then
+    Visible := False;
+end;
+
+procedure TFormTrackerModify.LabeledEditInfoSourceEditingDone(Sender: TObject);
+begin
+  FTrackerList.SourceTag := TLabeledEdit(Sender).Text;
+end;
+
+
+function TFormTrackerModify.AddTorrentFileList(TorrentFileNameStringList:
+  TStringList): boolean;
+  //This called from 'add folder' or 'drag and drop'
+var
+  Count: integer;
+  TorrentFileNameStr: utf8string;
+begin
+{ Every torrent file must be decoded for the tracker list inside.
+  This torrent tracker list is add to FTrackerList.TrackerFromInsideTorrentFilesList.
+  All the torrent files name are added to FTrackerList.TorrentFileNameList.
+
+  Called when user do drag and drop, File open torrent file/dir
+}
+  if TorrentFileNameStringList.Count > 0 then
+  begin
+    for Count := 0 to TorrentFileNameStringList.Count - 1 do
+    begin
+      //process one torrent file name for each loop.
+      TorrentFileNameStr := TorrentFileNameStringList[Count];
+
+      if DecodeTorrentFile(TorrentFileNameStr) then
+      begin
+        //This torrent have announce list(trackers) decoded.
+        //Now add all this torrent trackers to the 'general' list of trackers.
+        UpdateTorrentTrackerList;
+        //Add this torrent file to the 'general' list of torrent file names
+        FTrackerList.TorrentFileNameList.Add(TorrentFileNameStr);
+      end
+      else
+      begin
+        //Someting is wrong. Can not decode torrent tracker item.
+        //Cancel everything.
+        FTrackerList.TorrentFileNameList.Clear;
+        FTrackerList.TrackerFromInsideTorrentFilesList.Clear;
+        ShowUserErrorMessage('Error: Can not read torrent.', TorrentFileNameStr);
+        Result := False;
+        exit;
+      end;
+    end;
+  end;
+  Result := True;
+end;
+
+
+function TFormTrackerModify.ReloadAllTorrentAndRefreshView: boolean;
+var
+  TorrentFileStr: utf8string;
+begin
+{
+  This is called after updating the torrent.
+  We want to re-read the all torrent files.
+  And show that everything is updated and OK
+}
+
+  //will be set to False if error occure
+  Result := True;
+
+  ViewUpdateBegin;
+  //Copy all the trackers in inside the torrent files to FTrackerList.TrackerFromInsideTorrentFilesList
+  FTrackerList.TrackerFromInsideTorrentFilesList.Clear;
+  for TorrentFileStr in FTrackerList.TorrentFileNameList do
+  begin
+    if DecodeTorrentFile(TorrentFileStr) then
+    begin
+      UpdateTorrentTrackerList;
+    end
+    else
+    begin
+      //some files can not be read/decoded
+      Result := False;
+    end;
+  end;
+
+  //refresh the view
+  ViewUpdateEnd;
+
+end;
+
+procedure TFormTrackerModify.ClearAllTorrentFilesNameAndTrackerInside;
+begin
+  FTrackerList.TorrentFileNameList.Clear;
+  FTrackerList.TrackerFromInsideTorrentFilesList.Clear;
+  //  Caption := FORM_CAPTION;
+  //  ShowTorrentFilesAfterBeingLoaded;
+end;
+
+
+procedure TFormTrackerModify.ViewUpdateBegin;
+begin
+  //Called before loading torrent file.
+
+  Fcontroler_treeview_torrent_data.BeginUpdate;
+
+  //Do not show being updating till finish updating data.
+  StringGridTorrentData.BeginUpdate;
+  CheckListBoxPublicPrivateTorrent.Items.BeginUpdate;
+
+
+  //Clear all the user data 'View' elements. This will be filled with new data.
+  CheckListBoxPublicPrivateTorrent.Clear; //Use in update torrent!
+  StringGridTorrentData.Clear;
+  FControlerGridTorrentData.ClearAllImageIndex;
+  //RowCount is 0 after Clear. But must be 1 to make it work.
+  StringGridTorrentData.RowCount := 1;
+
+end;
+
+procedure TFormTrackerModify.ViewUpdateOneTorrentFileDecoded;
+var
+  RowIndex: integer;
+  TorrentFileNameStr, PrivateStr: utf8string;
+  DateTimeStr: string;
+begin
+  //Called after loading torrent file.
+  //There are 3 tab pages that need to be filled with new one torrent file data.
+
+  TorrentFileNameStr := ExtractFileName(FDecodePresentTorrent.FilenameTorrent);
+
+  //---------------------  Fill the Tree view with new torrent data
+  Fcontroler_treeview_torrent_data.AddOneTorrentFileDecoded(FDecodePresentTorrent);
+
+  //---------------------   Add it to the checklist box Public/private torrent
+  RowIndex := CheckListBoxPublicPrivateTorrent.Items.Add(TorrentFileNameStr);
+  //Check it for public/private flag
+  CheckListBoxPublicPrivateTorrent.Checked[RowIndex] :=
+    not FDecodePresentTorrent.PrivateTorrent;
+
+  //---------------------  Fill the Grid Torrent Data/Info
+  //date time in iso format
+  if FDecodePresentTorrent.CreatedDate <> 0 then
+    DateTimeToString(DateTimeStr, 'yyyy-MM-dd hh:nn:ss',
+      FDecodePresentTorrent.CreatedDate)
+  else //some torrent does not have CreatedDate
+    DateTimeStr := '';
+
+  //private or public torrent
+  if FDecodePresentTorrent.PrivateTorrent then
+    PrivateStr := 'yes'
+  else
+    PrivateStr := 'no';
+
+  //Copy all the torrent info to the grid column.
+  FControlerGridTorrentData.TorrentFile := TorrentFileNameStr;
+  FControlerGridTorrentData.InfoFileName := FDecodePresentTorrent.Name;
+  FControlerGridTorrentData.TorrentVersion :=
+    FDecodePresentTorrent.TorrentVersionToString;
+  case FDecodePresentTorrent.TorrentVersion of
+    tv_V1:
+    begin
+      FControlerGridTorrentData.InfoHash := 'V1: ' + FDecodePresentTorrent.InfoHash_V1;
+    end;
+    tv_V2:
+    begin
+      FControlerGridTorrentData.InfoHash := 'V2: ' + FDecodePresentTorrent.InfoHash_V2;
+    end;
+    tv_Hybrid:
+    begin // Show only V2 hash. No space for both V1 and V2
+      FControlerGridTorrentData.InfoHash := 'V2: ' + FDecodePresentTorrent.InfoHash_V2;
+    end;
+    else
+      FControlerGridTorrentData.InfoHash := 'N/A'
+  end;
+  FControlerGridTorrentData.Padding := FDecodePresentTorrent.PaddingToString;
+  FControlerGridTorrentData.CreatedOn := DateTimeStr;
+  FControlerGridTorrentData.CreatedBy := FDecodePresentTorrent.CreatedBy;
+  FControlerGridTorrentData.Comment := FDecodePresentTorrent.Comment;
+  FControlerGridTorrentData.PrivateTorrent := PrivateStr;
+  FControlerGridTorrentData.InfoSource := FDecodePresentTorrent.InfoSource;
+  FControlerGridTorrentData.PieceLength :=
+    format('%6d', [FDecodePresentTorrent.PieceLenght div 1024]); //Show as KiBytes
+  FControlerGridTorrentData.TotaSize :=
+    format('%9d', [FDecodePresentTorrent.TotalFileSize div 1024]); //Show as KiBytes
+  FControlerGridTorrentData.IndexOrder :=
+    format('%6d', [StringGridTorrentData.RowCount - 1]);
+  //Must keep track of order when sorted back
+
+  //All the string data are filed. Copy it now to the grid
+  FControlerGridTorrentData.AppendRow;
+
+end;
+
+
+
+procedure TFormTrackerModify.ViewUpdateEnd;
+begin
+  //Called after finish all torrent file loading.
+
+  //Show what we have updated.
+  Fcontroler_treeview_torrent_data.EndUpdate;
+  StringGridTorrentData.EndUpdate;
+  CheckListBoxPublicPrivateTorrent.Items.EndUpdate;
+
+
+  GroupBoxPresentTracker.Caption :=
+    GROUPBOX_PRESENT_TRACKERS_CAPTION + ' (List count: ' +
+    IntToStr(FTrackerList.TrackerFromInsideTorrentFilesList.Count) + ' )';
+
+  //Show all the tracker inside the torrent files.
+  ShowTrackerInsideFileList;
+  //Some tracker must be removed. Console and windows mode.
+  UpdateViewRemoveTracker;
+
+  //Show user how many files are loaded
+  ViewUpdateFormCaption;
+
+end;
+
+procedure TFormTrackerModify.ViewUpdateFormCaption;
+//var
+//ProcessTimeStr: string;
+//  Hour, Minute, Second, MilliSecond: word;
+begin
+  //Called when user load the torrent + update the torrent.
+
+{ //for performance debugging.
+  DecodeTime(FProcessTimeTotal, Hour, Minute, Second, MilliSecond);
+  ProcessTimeStr := IntToStr((Second * 1000) + MilliSecond) + ' mSec';
+}
+  //Show user how many files are loaded
+  Caption := FORM_CAPTION + '( Torrent files: ' +
+    IntToStr(FTrackerList.TorrentFileNameList.Count) + ' )';
+
+  if CheckBoxSkipAnnounceCheck.Checked then
+  begin
+    Caption := Caption + '(-SAC)';
+  end;
+
+
+  //  + ' (Process Time: ' +  ProcessTimeStr + ' )'; //for debug purpose.
+end;
+
+procedure TFormTrackerModify.ShowHourGlassCursor(HourGlass: boolean);
+begin
+  if HourGlass then
+  begin
+    screen.Cursor := crHourGlass;
+    FProcessTimeStart := now;
+  end
+  else
+  begin
+    screen.Cursor := crDefault;
+    FProcessTimeTotal := now - FProcessTimeStart;
+  end;
+
+end;
+
+function TFormTrackerModify.TestConnectionSSL: boolean;
+begin
+  Result := ParamCount = 1;
+  if Result then
+  begin
+    // Check for the correct parameter.
+    Result := UTF8Trim(ParamStr(1)) = '-TEST_SSL';
+    if Result then
+    begin
+      // Check if there is SLL connection
+      try
+        TFPCustomHTTPClient.SimpleGet(
+          'https://raw.githubusercontent.com/gerryferdinandus/bittorrent-tracker-editor/master/README.md');
+      except
+        //No SLL or no internet connection.
+        System.ExitCode := 1;
+      end;
+    end;
+  end;
+end;
+
+end.
diff --git a/source/code/newtrackon.pas b/source/code/newtrackon.pas
new file mode 100644
index 0000000..affcf68
--- /dev/null
+++ b/source/code/newtrackon.pas
@@ -0,0 +1,240 @@
+// SPDX-License-Identifier: MIT
+unit newtrackon;
+
+{
+Use api from newtrackon to get tracker list that are working or not.
+see: https://newtrackon.com/
+}
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils;
+
+type
+
+
+  { TNewTrackon }
+
+  //All the type of tracker list.
+  TNewTrackon_List = (
+    ntl_URL_All,//< Download from internet
+    ntl_URL_Live,//< Download from internet
+    ntl_URL_Stable,//< Download from internet
+    ntl_URL_UDP,//< Download from internet
+    ntl_URL_HTTP,//< Download from internet
+    ntl_CREATE_DEAD//< ntl_CREATE_DEAD is NOT download but created by comparing betwean tracker list
+    );
+
+  TNewTrackon = class
+  private
+    FTRackerList: array [TNewTrackon_List] of TStringList;
+
+    function DownloadTracker(NewTrackon_List: TNewTrackon_List): boolean;
+    procedure CreateTrackerList_Dead;
+  public
+    // all known trackers, dead or alive
+    property TrackerList_All: TStringList read FTRackerList[ntl_URL_All];
+
+    // currently active and responding trackers.
+    property TrackerList_Live: TStringList read FTrackerList[ntl_URL_Live];
+
+    // trackers that have an uptime of equal or more than 95%.
+    property TrackerList_Stable: TStringList read FTrackerList[ntl_URL_Stable];
+
+    // stable UDP trackers.
+    property TrackerList_Udp: TStringList read FTrackerList[ntl_URL_UDP];
+
+    // stable HTTP/HTTPS trackers.
+    property TrackerList_Http: TStringList read FTrackerList[ntl_URL_UDP];
+
+    // trackers that no longer present in 'live' list
+    property TrackerList_Dead: TStringList read FTrackerList[ntl_CREATE_DEAD];
+
+    //Download all the types the trackers via API
+    function DownloadEverything: boolean;
+
+    //Download only three types of the trackers via API
+    function Download_All_Live_Stable: boolean;
+
+    //Submit tracker to newTrackon via http POST
+    function SubmitTrackers(TrackerList: TStringList;
+      out TrackersSendCount: integer): boolean;
+
+    //create/destroy class object
+    constructor Create;
+    destructor Destroy; override;
+  end;
+
+
+
+implementation
+
+uses fphttpclient, LazUTF8, torrent_miscellaneous, httpdefs;
+
+const
+  URL: array [TNewTrackon_List] of string =
+    (//Warning: the URL strings must be in the same order as TNewTrackon_List
+    'https://newtrackon.com/api/all',
+    'https://newtrackon.com/api/live',
+    'https://newtrackon.com/api/stable',
+    'https://newtrackon.com/api/udp',
+    'https://newtrackon.com/api/http',
+    ''//there is no dead tracker list api
+    );
+
+{ TNewTrackon }
+
+
+procedure TNewTrackon.CreateTrackerList_Dead;
+begin
+  //FTrackerList_Dead = FTrackerList_All - FTrackerList_Live;
+  TrackerList_Dead.Assign(TrackerList_All);
+  RemoveTrackersFromList(TrackerList_Live, TrackerList_Dead);
+end;
+
+function TNewTrackon.DownloadTracker(NewTrackon_List: TNewTrackon_List): boolean;
+begin
+
+  try
+    //there is no Dead tracker list to be downloaded. so it can be skip
+    if NewTrackon_List <> ntl_CREATE_DEAD then
+    begin
+      //download via URL and put the data in the TrackerList
+      //will create exception if something is wrong
+      FTRackerList[NewTrackon_List].DelimitedText :=
+        TFPCustomHTTPClient.SimpleGet(URL[NewTrackon_List]);
+    end;
+
+    Result := True;
+  except
+    //No OpenSSL or web server is down
+    Result := False;
+  end;
+
+  //Clean up the tracker list just downloaded
+  SanatizeTrackerList(FTRackerList[NewTrackon_List]);
+end;
+
+function TNewTrackon.DownloadEverything: boolean;
+var
+  i: TNewTrackon_List;
+begin
+  //download all the list one by one
+  for i in TNewTrackon_List do
+  begin
+    Result := DownloadTracker(i);
+    if not Result then
+      Exit;
+  end;
+
+  CreateTrackerList_Dead;
+end;
+
+function TNewTrackon.Download_All_Live_Stable: boolean;
+begin
+  Result := DownloadTracker(ntl_URL_All);
+  if Result then
+  begin
+    Result := DownloadTracker(ntl_URL_Stable);
+    if Result then
+    begin
+      Result := DownloadTracker(ntl_URL_Live);
+    end;
+  end;
+
+  CreateTrackerList_Dead;
+end;
+
+function TNewTrackon.SubmitTrackers(TrackerList: TStringList;
+  out TrackersSendCount: integer): boolean;
+var
+  TrackerListToBeSend: TStringList;
+  FormData: string;
+  Trackers: string;
+  HTTPS: TFPHTTPClient;
+  Seperator: string;
+
+const
+  URL_POST = 'https://newtrackon.com/api/add';
+begin
+  TrackersSendCount := 0;
+
+  //Must always first download the ALL tracker list if not already downloaded.
+  //To make sure it is always checking agains the most recent list
+  Result := DownloadTracker(ntl_URL_All);
+
+  if Result then
+  begin
+    try
+      HTTPS := TFPHTTPClient.Create(nil);
+      TrackerListToBeSend := TStringList.Create;
+      TrackerListToBeSend.Assign(TrackerList);
+
+      //remove all duplicate trackers before sending,
+      RemoveTrackersFromList(TrackerList_All, TrackerListToBeSend);
+
+      //Give information back about how many unique tracker URL is send.
+      TrackersSendCount := TrackerListToBeSend.Count;
+
+      if TrackersSendCount > 0 then
+      begin
+
+        //this is the 'key'
+        FormData := 'new_trackers=';
+
+        //This is the 'values' all seperated with one space '+'
+        Seperator := '';
+        for Trackers in TrackerListToBeSend do
+        begin
+          FormData := FormData + Seperator + HTTPEncode(Trackers);
+          if Seperator = '' then
+            Seperator := '+';
+        end;
+
+        try
+          HTTPS.FormPost(URL_POST, FormData);
+
+          //Check the response must be 204
+          Result := HTTPS.ResponseStatusCode = 204;
+        except
+          //No OpenSSL or web server is down
+          Result := False;
+        end;
+      end;
+
+    finally
+      TrackerListToBeSend.Free;
+      HTTPS.Free;
+    end;
+  end;
+end;
+
+constructor TNewTrackon.Create;
+var
+  i: TNewTrackon_List;
+begin
+  //Create all the TStringList
+  for i in TNewTrackon_List do
+  begin
+    FTrackerList[i] := TStringList.Create;
+    FTrackerList[i].Duplicates := dupIgnore;
+  end;
+end;
+
+destructor TNewTrackon.Destroy;
+var
+  i: TNewTrackon_List;
+begin
+  //Release all the TStringList
+  for i in TNewTrackon_List do
+  begin
+    FTrackerList[i].Free;
+  end;
+
+  inherited Destroy;
+end;
+
+
+end.
diff --git a/source/code/ngosang_trackerslist.pas b/source/code/ngosang_trackerslist.pas
new file mode 100644
index 0000000..2bfebec
--- /dev/null
+++ b/source/code/ngosang_trackerslist.pas
@@ -0,0 +1,173 @@
+// SPDX-License-Identifier: MIT
+unit ngosang_trackerslist;
+
+{
+Use api from ngosang to get tracker list that are working or not.
+see: https://github.com/ngosang/trackerslist
+}
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils;
+
+type
+
+
+  { TNewTrackon }
+
+  //All the type of tracker list.
+  Tngosang_List = (
+    ntl_URL_Blacklist,//< Download from internet
+    ntl_URL_All,//< Download from internet
+    ntl_URL_All_HTTP,//< Download from internet
+    ntl_URL_All_HTTPS,//< Download from internet
+    ntl_URL_All_IP,//< Download from internet
+    ntl_URL_All_UDP,//< Download from internet
+    ntl_URL_All_WS,//< Download from internet
+    ntl_URL_Best,//< Download from internet
+    ntl_URL_Best_IP//< Download from internet
+    );
+
+  { TngosangTrackerList }
+
+  TngosangTrackerList = class
+  private
+    FTRackerList: array [Tngosang_List] of TStringList;
+    function DownloadTracker(ngosang_List: Tngosang_List): TStringList;
+  public
+
+    property TrackerList_Blacklist: TStringList index ntl_URL_Blacklist
+      read DownloadTracker;
+
+    property TrackerList_All: TStringList index ntl_URL_All read DownloadTracker;
+
+    property TrackerList_All_HTTP: TStringList index ntl_URL_All_HTTP
+      read DownloadTracker;
+
+    property TrackerList_All_HTTPS: TStringList index ntl_URL_All_HTTPS
+      read DownloadTracker;
+
+    property TrackerList_All_IP: TStringList index ntl_URL_All_IP read DownloadTracker;
+
+    property TrackerList_All_UDP: TStringList index ntl_URL_All_UDP read DownloadTracker;
+
+    property TrackerList_All_WS: TStringList index ntl_URL_All_WS read DownloadTracker;
+
+    property TrackerList_Best: TStringList index ntl_URL_Best read DownloadTracker;
+
+    property TrackerList_Best_IP: TStringList index ntl_URL_Best_IP read DownloadTracker;
+
+    //create/destroy class object
+    constructor Create;
+    destructor Destroy; override;
+  end;
+
+implementation
+
+uses opensslsockets, OpenSSL, fphttpclient, LazUTF8, torrent_miscellaneous;
+
+const
+  URL: array [Tngosang_List] of string =
+    (//Warning: the URL strings must be in the same order as Tngosang_List
+    'https://raw.githubusercontent.com/ngosang/trackerslist/master/blacklist.txt',
+    'https://raw.githubusercontent.com/ngosang/trackerslist/master/trackers_all.txt',
+    'https://raw.githubusercontent.com/ngosang/trackerslist/master/trackers_all_http.txt',
+    'https://raw.githubusercontent.com/ngosang/trackerslist/master/trackers_all_https.txt',
+    'https://raw.githubusercontent.com/ngosang/trackerslist/master/trackers_all_ip.txt',
+    'https://raw.githubusercontent.com/ngosang/trackerslist/master/trackers_all_udp.txt',
+    'https://raw.githubusercontent.com/ngosang/trackerslist/master/trackers_all_ws.txt',
+    'https://raw.githubusercontent.com/ngosang/trackerslist/master/trackers_best.txt',
+    'https://raw.githubusercontent.com/ngosang/trackerslist/master/trackers_best_ip.txt'
+    );
+
+{ TngosangTrackerList }
+function TngosangTrackerList.DownloadTracker(ngosang_List: Tngosang_List): TStringList;
+begin
+  try
+    //download via URL and put the data in the TrackerList
+    FTRackerList[ngosang_List].DelimitedText :=
+      TFPCustomHTTPClient.SimpleGet(URL[ngosang_List]);
+
+    //Clean up the tracker list
+    SanatizeTrackerList(FTRackerList[ngosang_List]);
+
+  except
+    //No OpenSSL or web server is down
+    FTRackerList[ngosang_List].Clear;
+  end;
+
+  Result := FTrackerList[ngosang_List];
+end;
+
+constructor TngosangTrackerList.Create;
+var
+  i: Tngosang_List;
+begin
+
+  //Create all the TStringList
+  for i in Tngosang_List do
+  begin
+    FTrackerList[i] := TStringList.Create;
+    FTrackerList[i].Duplicates := dupIgnore;
+  end;
+end;
+
+destructor TngosangTrackerList.Destroy;
+var
+  i: Tngosang_List;
+begin
+  //Release all the TStringList
+  for i in Tngosang_List do
+  begin
+    FTrackerList[i].Free;
+  end;
+
+  inherited Destroy;
+end;
+
+initialization
+  // FPC 3.2.2 is missing support for the latest openSSL 3, will be fix in the future release.
+  // Latest openssl.pas https://gitlab.com/freepascal.org/fpc/source/-/blob/main/packages/openssl/src/openssl.pas?ref_type=heads
+  // Copy this newer SSL detection into the older openssl code used by the present FPC 3.2.2
+{$IFDEF VER3_2}
+{$IFDEF WINDOWS}
+  DLLSSLName3 := {$IFDEF WIN64}'libssl-3-x64.dll'{$ELSE}'libssl-3.dll'{$ENDIF};
+  DLLUtilName2 := {$IFDEF WIN64}'libcrypto-3-x64.dll'{$ELSE}'libcrypto-3.dll'{$ENDIF};
+{$ELSE WINDOWS}
+{$IFDEF DARWIN}
+  if High(OpenSSL.DLLVersions) >= 19 then
+  begin
+    // macOS version
+    // LibreSSL
+    OpenSSL.DLLVersions[1] := '.48';
+    OpenSSL.DLLVersions[2] := '.47';
+    OpenSSL.DLLVersions[3] := '.46';
+    OpenSSL.DLLVersions[4] := '.45';
+    OpenSSL.DLLVersions[5] := '.44';
+    OpenSSL.DLLVersions[6] := '.43';
+    OpenSSL.DLLVersions[7] := '.35';
+
+    // OpenSSL
+    OpenSSL.DLLVersions[8] := '.3';
+    OpenSSL.DLLVersions[9] := '.1.1';
+    OpenSSL.DLLVersions[10] := '.11';
+    OpenSSL.DLLVersions[11] := '.10';
+    OpenSSL.DLLVersions[12] := '.1.0.6';
+    OpenSSL.DLLVersions[13] := '.1.0.5';
+    OpenSSL.DLLVersions[14] := '.1.0.4';
+    OpenSSL.DLLVersions[15] := '.1.0.3';
+    OpenSSL.DLLVersions[16] := '.1.0.2';
+    OpenSSL.DLLVersions[17] := '.1.0.1';
+    OpenSSL.DLLVersions[18] := '.1.0.0';
+    OpenSSL.DLLVersions[19] := '.0.9.8';
+  end;
+{$ElSE DARWIN}
+  // Unix/Linux version of FPC need openSSL 3 in the detection list
+  OpenSSL.DLLVersions[Length(OpenSSL.DLLVersions) - 1] := '.3';
+{$ENDIF DARWIN}
+{$ENDIF WINDOWS}
+{$ENDIF VER3_2}
+
+end.
diff --git a/source/code/torrent_miscellaneous.pas b/source/code/torrent_miscellaneous.pas
new file mode 100644
index 0000000..525dbe1
--- /dev/null
+++ b/source/code/torrent_miscellaneous.pas
@@ -0,0 +1,775 @@
+// SPDX-License-Identifier: MIT
+unit torrent_miscellaneous;
+
+{
+ Some generic routine
+
+}
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils;
+
+type
+  //Updated torrent file trackers list order.
+  //Do not change the order of TTrackerListOrder.
+  TTrackerListOrder = (
+
+    // Console parameter: -U0
+    // Insert new trackers list BEFORE, the original trackers list inside the torrent file.
+    // And remove possible duplicated trackers from the ORIGINAL trackers list.
+    tloInsertNewBeforeAndKeepNewIntact = 0,
+
+    // Console parameter: -U1
+    // Insert new trackers list BEFORE, the original trackers list inside the torrent file.
+    // And remove possible duplicated trackers from the NEW trackers list.
+    tloInsertNewBeforeAndKeepOriginalIntact,
+
+    // Console parameter: -U2
+    // Append new trackers list AFTER, the original trackers list inside the torrent file.
+    // And remove possible duplicated trackers from the ORIGINAL trackers list.
+    tloAppendNewAfterAndKeepNewIntact,
+
+    // Console parameter: -U3
+    // Append new trackers list AFTER, the original trackers list inside the torrent file.
+    // And remove possible duplicated trackers from the NEW trackers list.
+    tloAppendNewAfterAndKeepOriginalIntact,
+
+    // Console parameter: -U4
+    // Sort the trackers list by name.
+    tloSort,
+
+    // Console parameter: -U5
+    // Append new trackers list BEFORE, the original trackers list inside the torrent file.
+    // Keep original tracker list 'of each individual torrent' unchanged and remove nothing.
+    // Every torent may have diferent tracker list!
+    tloInsertNewBeforeAndKeepOriginalIntactAndRemoveNothing,
+
+    // Console parameter: -U6
+    // Append new trackers list AFTER, the original trackers list inside the torrent file.
+    // Keep original tracker list 'of each individual torrent' unchanged and remove nothing.
+    // Every torent may have diferent tracker list!
+    tloAppendNewAfterAndKeepOriginalIntactAndRemoveNothing,
+
+    // Console parameter: -U7
+    // Randomize the trackers list.
+    tloRandomize
+
+    );
+
+
+  TTrackerList = record
+    //The new trackers list order
+    TrackerListOrderForUpdatedTorrent: TTrackerListOrder;
+
+    //Trackers that must be put inside the torrent.
+    TrackerFinalList,
+
+    //Trackers that we want too add.
+    TrackerAddedByUserList,
+
+    //trackers that must not be present inside torrent.
+    TrackerBanByUserList,
+
+    //Trackers that are already inside the torrent.
+    TrackerFromInsideTorrentFilesList,
+
+    //trackers that must not be present inside torrent.
+    TrackerManualyDeselectedByUserList,
+
+    // All the torrent files that must be updated
+    TorrentFileNameList,
+
+    //Log string text output
+    LogStringList: TStringList;
+
+    // No announce check needed for some private trackers
+    SkipAnnounceCheck: boolean;
+
+    // Private tracker may need extra 'info:source' variable
+    SourceTag: UTF8String;
+
+    // This is needed if someone want to convert private torrent to public torrent
+    // Source tag is not used in public tracker.
+    RemoveAllSourceTag: Boolean;
+
+  end;
+
+
+procedure RemoveTrackersFromList(RemoveList, UpdatedList: TStringList);
+
+procedure SanatizeTrackerList(StringList: TStringList);
+
+procedure RandomizeTrackerList(StringList: TStringList);
+
+procedure AddButIngnoreDuplicates(StringList: TStringList; const Str: UTF8String);
+
+function ByteSizeToBiggerSizeFormatStr(ByteSize: int64): string;
+
+function LoadTorrentViaDir(const Dir: UTF8String;
+  TorrentFilesNameStringList: TStringList): boolean;
+
+function ValidTrackerURL(const TrackerURL: UTF8String): boolean;
+
+function WebTorrentTrackerURL(const TrackerURL: UTF8String): boolean;
+
+procedure CombineFiveTrackerListToOne(TrackerListOrder: TTrackerListOrder;
+  var TrackerList: TTrackerList; PresentTorrentTrackerList: TStringList);
+
+function ConsoleModeDecodeParameter(out FileNameOrDirStr: UTF8String;
+  var TrackerList: TTrackerList): boolean;
+
+function DecodeConsoleUpdateParameter(const ConsoleUpdateParameter: UTF8String;
+  var TrackerList: TTrackerList): boolean;
+
+function TrackerURLWithAnnounce(const TrackerURL: UTF8String): boolean;
+
+const
+  VALID_TRACKERS_URL: array[0..4] of UTF8String =
+    (
+    'udp://',
+    'http://',
+    'https://',
+    'ws://',
+    'wss://'
+    );
+
+
+  //'add trackers' text file must be place in the same directory as the program.
+  FILE_NAME_ADD_TRACKERS: string = 'add_trackers.txt';
+
+  //'remove trackers' text file must be place in the same directory as the program.
+  FILE_NAME_REMOVE_TRACKERS: string = 'remove_trackers.txt';
+
+  //'export trackers' text file wil be created in the same directory as the program.
+  FILE_NAME_EXPORT_TRACKERS: string = 'export_trackers.txt';
+
+  //'log' text file will be saved in the same directory as the program
+  // only in the console mode.
+  FILE_NAME_CONSOLE_LOG: string = 'console_log.txt';
+
+  CONSOLE_SUCCESS_STATUS: string = 'OK';
+
+implementation
+
+uses LazUTF8, LazFileUtils;
+
+procedure RemoveTrackersFromList(RemoveList, UpdatedList: TStringList);
+var
+  TrackerStr: string;
+  i: integer;
+begin
+  //Remove the trackers that we do not want in the list
+  for TrackerStr in RemoveList do
+  begin
+    //Find the tracker and remove it from the list.
+    i := UpdatedList.IndexOf(UTF8Trim(TrackerStr));
+    if i >= 0 then
+      UpdatedList.Delete(i);
+  end;
+end;
+
+procedure SanatizeTrackerList(StringList: TStringList);
+var
+  TrackerStr: UTF8String;
+  i: integer;
+  PositionSpace: PtrInt;
+begin
+  //remove all empty space and comment after the URL
+
+  if StringList.Count > 0 then
+  begin
+    for i := 0 to StringList.Count - 1 do
+    begin
+      //process every line one by one
+      TrackerStr := StringList[i];
+
+      //remove empty spaces at the begin/end of line
+      TrackerStr := UTF8Trim(TrackerStr);
+
+      //find the first 'space' found in line
+      PositionSpace := UTF8Pos(' ', TrackerStr);
+      if PositionSpace > 0 then
+      begin
+        // There is a 'space' found
+        // Remove everything after this 'space'
+        TrackerStr := UTF8LeftStr(TrackerStr, PositionSpace - 1);
+      end;
+
+      //write the modified string back
+      StringList[i] := TrackerStr;
+    end;
+  end;
+end;
+
+procedure RandomizeTrackerList(StringList: TStringList);
+var
+  i: integer;
+begin
+  //The order of the string list must be randomize
+  if StringList.Count > 1 then
+  begin
+    for i := 0 to StringList.Count - 1 do
+    begin
+      StringList.Exchange(i, Random(StringList.Count));
+    end;
+  end;
+end;
+
+procedure AddButIngnoreDuplicates(StringList: TStringList; const Str: UTF8String);
+begin
+  //Stringlist that are not sorted must use IndexOf to ignore Duplicates.
+  if not StringList.Sorted then
+  begin
+    //not sorted version
+    if StringList.IndexOf(Str) < 0 then
+    begin
+      StringList.add(Str);
+    end;
+  end
+  else
+  begin
+    //sorted version
+    StringList.add(Str);
+  end;
+
+end;
+
+function ByteSizeToBiggerSizeFormatStr(ByteSize: int64): string;
+begin
+  if ByteSize >= (1024 * 1024 * 1024) then
+    Result := Format('%0.2f GiB', [ByteSize / (1024 * 1024 * 1024)])
+  else
+  if ByteSize >= (1024 * 1024) then
+    Result := Format('%0.2f MiB', [ByteSize / (1024 * 1024)])
+  else
+  if ByteSize >= (1024) then
+    Result := Format('%0.2f KiB', [ByteSize / 1024])
+  else
+    Result := '';
+
+  Result := Result + Format(' (%d Bytes)', [ByteSize]);
+end;
+
+
+function LoadTorrentViaDir(const Dir: UTF8String;
+  TorrentFilesNameStringList: TStringList): boolean;
+var
+  Info: TSearchRec;
+begin
+  //place all the torrent file name in TorrentFilesNameStringList
+  //  TorrentFilesNameStringList := TStringList.Create;
+
+  if FindFirstUTF8(dir + PathDelim + '*.torrent', faAnyFile, Info) = 0 then
+  begin
+    //Read all the torrent files inside this dir.
+    repeat
+      TorrentFilesNameStringList.Add(UTF8Trim(dir + PathDelim + Info.Name));
+    until FindNextUTF8(info) <> 0;
+  end;
+  FindCloseUTF8(Info);
+
+  Result := TorrentFilesNameStringList.Count > 0;
+
+end;
+
+
+
+function DecodeConsoleUpdateParameter(ConsoleUpdateParameter: UTF8String;
+  var TrackerListOrder: TTrackerListOrder; LogStringList: TStringList = nil): boolean;
+var
+  i: integer;
+begin
+  //Decode the '-Ux' x is number [0..4]
+
+  //verify string content.
+  Result := (Pos('-U', ConsoleUpdateParameter) = 1) and
+    (length(ConsoleUpdateParameter) = 3);
+
+  if Result then
+  begin
+    //get the number
+    Result := TryStrToInt(ConsoleUpdateParameter[3], i);
+    if Result then
+    begin
+      //decode number [0..7]
+      case i of
+        0: TrackerListOrder := tloInsertNewBeforeAndKeepNewIntact;
+        1: TrackerListOrder := tloInsertNewBeforeAndKeepOriginalIntact;
+        2: TrackerListOrder := tloAppendNewAfterAndKeepNewIntact;
+        3: TrackerListOrder := tloAppendNewAfterAndKeepOriginalIntact;
+        4: TrackerListOrder := tloSort;
+        5: TrackerListOrder := tloInsertNewBeforeAndKeepOriginalIntactAndRemoveNothing;
+        6: TrackerListOrder := tloAppendNewAfterAndKeepOriginalIntactAndRemoveNothing;
+        7: TrackerListOrder := tloRandomize;
+        else
+        begin
+          //the number is out of range.
+          Result := False;
+        end;
+      end;
+    end;
+  end;
+
+  if not Result then
+  begin
+    if assigned(LogStringList) then
+    begin
+      LogStringList.Add('ERROR: can not decode update parameter -U : ' +
+        ConsoleUpdateParameter);
+    end;
+
+  end;
+end;
+
+
+
+
+function ConsoleModeDecodeParameter(out FileNameOrDirStr: UTF8String;
+  out CountParameter: integer; var TrackerListOrder: TTrackerListOrder;
+  LogStringList: TStringList = nil): boolean;
+begin
+
+  // Console mode can be started with 2 parameter
+  //    Update methode: -U0 , -U1, -U2, -U3, -U4
+  //    String with a link to folder or to torrent file. 'C:\dir'
+
+  CountParameter := Paramcount;
+  case CountParameter of
+    0:
+    begin
+      if assigned(LogStringList) then
+      begin
+        LogStringList.Add('ERROR: There are no parameter detected.');
+      end;
+      Result := False;
+      exit;
+    end;
+    1:
+    begin
+      //one parameter. Must be a link.
+      FileNameOrDirStr := UTF8Trim(ParamStr(1));
+      //Keep the same behaviour as the previeus software version.
+      //      FTrackerListOrderForUpdatedTorrent := tloSort;
+      TrackerListOrder := tloSort;
+      Result := True;
+    end;
+    2:
+    begin
+      //Two parameters. The user can select the update methode.
+      //Check for '-U' contruction as first parameter
+      if (Pos('-U', ParamStr(1)) = 1) then
+      begin
+        //Update parameter is the first parameter
+        Result := DecodeConsoleUpdateParameter(ParamStr(1), TrackerListOrder,
+          LogStringList);
+        FileNameOrDirStr := UTF8Trim(ParamStr(2));
+      end
+      else
+      begin
+        //Update parameter is the second parameter
+        Result := DecodeConsoleUpdateParameter(ParamStr(2), TrackerListOrder,
+          LogStringList);
+        FileNameOrDirStr := UTF8Trim(ParamStr(1));
+      end;
+
+    end;
+    else
+    begin
+      if assigned(LogStringList) then
+      begin
+        LogStringList.Add('ERROR: There can only be maximum of 2 parameter. Not: ' +
+          IntToStr(ParamCount));
+      end;
+    end;
+      Result := False;
+      exit;
+  end;
+
+end;
+
+function ValidTrackerURL(const TrackerURL: UTF8String): boolean;
+begin
+  //TrackerURL should be cleanup with UTF8trim()
+  Result := (Pos('udp://', TrackerURL) = 1) or (Pos('http://', TrackerURL) = 1) or
+    (Pos('https://', TrackerURL) = 1) or WebTorrentTrackerURL(TrackerURL);
+end;
+
+function WebTorrentTrackerURL(const TrackerURL: UTF8String): boolean;
+begin
+  Result := (Pos('ws://', TrackerURL) = 1) or (Pos('wss://', TrackerURL) = 1);
+end;
+
+procedure CombineFiveTrackerListToOne(TrackerListOrder: TTrackerListOrder;
+  var TrackerList: TTrackerList; PresentTorrentTrackerList: TStringList);
+var
+  TrackerStr: UTF8String;
+  TrackerDeselectTempList, TrackerFromInsideOneTorrentFile: TStringList;
+
+begin
+  //The new trackers can be added at the begin or at the end of the list.
+
+  // FTrackerFinalList =
+  //                   (TrackerFromInsideOneTorrentFile
+  //                   + TrackerList.TrackerAddedByUserList
+  //                   + TrackerList.TrackerFromInsideTorrentFilesList)
+  //                   - TrackerList.TrackerBanByUserList
+  //                   - TrackerList.TrackerManualyDeselectedByUserList
+
+
+  TrackerFromInsideOneTorrentFile := TStringList.Create;
+
+  try
+    //Begin with an empty list
+    TrackerList.TrackerFinalList.Clear;
+
+    if TrackerListOrder <> tloSort then
+    begin
+
+      //Read the trackers inside the torrent file
+      //Copy the trackers found in one torrent file to TrackerFromInsideOneTorrentFile
+      for TrackerStr in PresentTorrentTrackerList do //FDecodePresentTorrent.TrackerList
+      begin
+        AddButIngnoreDuplicates(TrackerFromInsideOneTorrentFile, TrackerStr);
+      end;
+
+    end;
+
+    //Add the new tracker list before of after the original trackers list inside the torrent file.
+    case TrackerListOrder of
+
+      tloInsertNewBeforeAndKeepOriginalIntact:
+      begin
+        //Before
+
+        //Must be place as first TrackerList.TrackerAddedByUserList (Not instact when duplicated)
+        for TrackerStr in TrackerList.TrackerAddedByUserList do
+          AddButIngnoreDuplicates(TrackerList.TrackerFinalList, TrackerStr);
+
+        //original tracker list is second place (Keep original intact)
+        RemoveTrackersFromList(TrackerFromInsideOneTorrentFile,
+          TrackerList.TrackerFinalList);
+        for TrackerStr in TrackerFromInsideOneTorrentFile do
+          AddButIngnoreDuplicates(TrackerList.TrackerFinalList, TrackerStr);
+
+        //'Others' trackers added as last. (Not instact when duplicated)
+        for TrackerStr in TrackerList.TrackerFromInsideTorrentFilesList do
+          AddButIngnoreDuplicates(TrackerList.TrackerFinalList, TrackerStr);
+      end;
+
+
+      tloInsertNewBeforeAndKeepNewIntact:
+      begin
+        //Before
+
+        //Must be place as first TrackerList.TrackerAddedByUserList (keep new instact)
+        for TrackerStr in TrackerList.TrackerAddedByUserList do
+          AddButIngnoreDuplicates(TrackerList.TrackerFinalList, TrackerStr);
+
+        //original tracker list is second place (Not instact when duplicated)
+        for TrackerStr in TrackerFromInsideOneTorrentFile do
+          AddButIngnoreDuplicates(TrackerList.TrackerFinalList, TrackerStr);
+
+        //'Others' trackers added as last. (Not instact when duplicated)
+        for TrackerStr in TrackerList.TrackerFromInsideTorrentFilesList do
+          AddButIngnoreDuplicates(TrackerList.TrackerFinalList, TrackerStr);
+      end;
+
+
+      tloAppendNewAfterAndKeepOriginalIntact:
+      begin
+        //After
+
+        //original tracker list must be place first. (keep original instact)
+        for TrackerStr in TrackerFromInsideOneTorrentFile do
+          AddButIngnoreDuplicates(TrackerList.TrackerFinalList, TrackerStr);
+
+        //Must be place after TrackerFromInsideOneTorrentFile (Not instact when duplicated)
+        for TrackerStr in TrackerList.TrackerAddedByUserList do
+          AddButIngnoreDuplicates(TrackerList.TrackerFinalList, TrackerStr);
+
+        //'Others' trackers added as last.  (Not instact when duplicated)
+        for TrackerStr in TrackerList.TrackerFromInsideTorrentFilesList do
+          AddButIngnoreDuplicates(TrackerList.TrackerFinalList, TrackerStr);
+
+      end;
+
+      tloAppendNewAfterAndKeepNewIntact:
+      begin
+        //After
+
+        //original tracker list must be place first. (Not instact when duplicated)
+        for TrackerStr in TrackerFromInsideOneTorrentFile do
+          AddButIngnoreDuplicates(TrackerList.TrackerFinalList, TrackerStr);
+
+        //Must be place after TrackerFromInsideOneTorrentFile (keep new instact)
+        RemoveTrackersFromList(TrackerList.TrackerAddedByUserList,
+          TrackerList.TrackerFinalList);
+        for TrackerStr in TrackerList.TrackerAddedByUserList do
+          AddButIngnoreDuplicates(TrackerList.TrackerFinalList, TrackerStr);
+
+        //'Others' trackers added as last. (Not instact when duplicated)
+        for TrackerStr in TrackerList.TrackerFromInsideTorrentFilesList do
+          AddButIngnoreDuplicates(TrackerList.TrackerFinalList, TrackerStr);
+
+      end;
+
+      tloSort:
+      begin
+        //Sort
+
+        for TrackerStr in TrackerList.TrackerAddedByUserList do
+          AddButIngnoreDuplicates(TrackerList.TrackerFinalList, TrackerStr);
+
+        for TrackerStr in TrackerList.TrackerFromInsideTorrentFilesList do
+          AddButIngnoreDuplicates(TrackerList.TrackerFinalList, TrackerStr);
+
+        TrackerList.TrackerFinalList.Sort;
+      end;
+
+      tloInsertNewBeforeAndKeepOriginalIntactAndRemoveNothing:
+      begin
+        //Before
+
+        //Must be place as first TrackerList.TrackerAddedByUserList.
+        for TrackerStr in TrackerList.TrackerAddedByUserList do
+          AddButIngnoreDuplicates(TrackerList.TrackerFinalList, TrackerStr);
+
+        //remove duplicate from the list.
+        RemoveTrackersFromList(TrackerFromInsideOneTorrentFile,
+          TrackerList.TrackerFinalList);
+
+        //original tracker list is second place (Keep original intact)
+        for TrackerStr in TrackerFromInsideOneTorrentFile do
+          AddButIngnoreDuplicates(TrackerList.TrackerFinalList, TrackerStr);
+
+        //Nothing should be removed
+        TrackerList.TrackerManualyDeselectedByUserList.Clear;
+      end;
+
+
+      tloAppendNewAfterAndKeepOriginalIntactAndRemoveNothing:
+      begin
+        //After
+
+        //original tracker list is first place (Keep original intact)
+        for TrackerStr in TrackerFromInsideOneTorrentFile do
+          AddButIngnoreDuplicates(TrackerList.TrackerFinalList, TrackerStr);
+
+        //Must be place as second TrackerList.TrackerAddedByUserList.
+        for TrackerStr in TrackerList.TrackerAddedByUserList do
+          AddButIngnoreDuplicates(TrackerList.TrackerFinalList, TrackerStr);
+
+        //Nothing should be removed
+        TrackerList.TrackerManualyDeselectedByUserList.Clear;
+      end;
+
+      tloRandomize:
+      begin
+        //Randomize
+
+        for TrackerStr in TrackerList.TrackerAddedByUserList do
+          AddButIngnoreDuplicates(TrackerList.TrackerFinalList, TrackerStr);
+
+        for TrackerStr in TrackerList.TrackerFromInsideTorrentFilesList do
+          AddButIngnoreDuplicates(TrackerList.TrackerFinalList, TrackerStr);
+
+        RandomizeTrackerList(TrackerList.TrackerFinalList);
+      end;
+
+
+      else
+      begin
+        Assert(True, 'case else: Should never been called. CombineFiveTrackerListToOne');
+      end;
+    end;
+
+    //Trackers from TrackerList.TrackerAddedByUserList overrule the one from TrackerList.TrackerManualyDeselectedByUserList
+    //This is when there is a conflict betwean 'add' and 'remove manual selection'
+
+    //Must keep TrackerList.TrackerManualyDeselectedByUserList intact. Copy it to TrackerDeselectTempList
+    TrackerDeselectTempList := TStringList.Create;
+    TrackerDeselectTempList.Text :=
+      TrackerList.TrackerManualyDeselectedByUserList.Text;
+    RemoveTrackersFromList(TrackerList.TrackerAddedByUserList,
+      TrackerDeselectTempList);
+
+    //Remove the trackers that we do not want in FTrackerFinalList must be the last step.
+    RemoveTrackersFromList(TrackerList.TrackerBanByUserList,
+      TrackerList.TrackerFinalList);
+    RemoveTrackersFromList(TrackerDeselectTempList, TrackerList.TrackerFinalList);
+
+    //No longer needed
+    TrackerDeselectTempList.Free;
+
+  finally
+    //No longer needed
+    TrackerFromInsideOneTorrentFile.Free;
+  end;
+end;
+
+
+
+function ConsoleModeDecodeParameter(out FileNameOrDirStr: UTF8String;
+  var TrackerList: TTrackerList): boolean;
+var
+  i: integer;
+begin
+  {
+   Console mode can be started with example 2 parameter
+      Update methode: -U0 , -U1, -U2, -U3, -U4 etc.
+      String with a link to folder or to torrent file. 'C:\dir'
+
+   Must keep backward compatible with the first and previeus release.
+   First or seccond parameter must be related to -Ux
+
+   other parameter after are optional -SOC and -SOURCE
+
+   example:
+   "path_to_folder" -U3 -SAC -SOURCE "ABC"
+   -U3 "path_to_folder" -SAC -SOURCE "ABC"
+  }
+
+  Result := False;
+  case Paramcount of
+    0:
+    begin
+      TrackerList.LogStringList.Add('ERROR: There are no parameter detected.');
+      exit;
+    end;
+    1:
+    begin
+      //one parameter. Must be a link.
+      FileNameOrDirStr := UTF8Trim(ParamStr(1));
+      //Keep the same behaviour as the previeus software version.
+      TrackerList.TrackerListOrderForUpdatedTorrent := tloSort;
+      Result := True;
+    end;
+    else
+    begin
+      //Two parameters. The user can select the update methode.
+      //Check for '-U' contruction as first parameter
+      if (Pos('-U', ParamStr(1)) = 1) then
+      begin
+        //Update parameter is the first parameter
+        Result := DecodeConsoleUpdateParameter(ParamStr(1), TrackerList);
+        // second parameter is the file/folder
+        FileNameOrDirStr := UTF8Trim(ParamStr(2));
+        Exit;
+      end;
+
+      //Check for '-U' contruction as second parameter
+      if (Pos('-U', ParamStr(2)) = 1) then
+      begin
+        // Update parameter is the second parameter
+        Result := DecodeConsoleUpdateParameter(ParamStr(2), TrackerList);
+        // first parameter MUST be the file/folder
+        FileNameOrDirStr := UTF8Trim(ParamStr(1));
+      end;
+
+      //Check for parameter -SAC and -SOURCE
+      for i := 2 to ParamCount do
+      begin
+        if ParamStr(i) = '-SAC' then
+        begin
+          TrackerList.SkipAnnounceCheck := True;
+          Continue;
+        end;
+
+        if ParamStr(i) = '-SOURCE' then
+        begin
+          if ParamCount < i + 1 then
+          begin
+            TrackerList.LogStringList.Add(
+              'ERROR: There is no value after -SOURCE');
+            Result := False;
+            exit;
+          end;
+
+          // parameter after -SOURCE must be the value.
+          TrackerList.SourceTag := ParamStr(i + 1);
+          // Empty '' -> remove all source tag
+          TrackerList.RemoveAllSourceTag := TrackerList.SourceTag = '';
+        end;
+      end;
+
+    end;
+      //else
+      //begin
+      //  TrackerList.LogStringList.Add(
+      //    'ERROR: There can only be maximum of 2 parameter. Not: ' + IntToStr(ParamCount));
+      //  Result := False;
+      //  exit;
+      //end;
+
+  end;
+end;
+
+function DecodeConsoleUpdateParameter(const ConsoleUpdateParameter: UTF8String;
+  var TrackerList: TTrackerList): boolean;
+var
+  i: integer;
+begin
+  //Decode the '-Ux' x is number [0..4]
+
+  //verify string content.
+  Result := (Pos('-U', ConsoleUpdateParameter) = 1) and
+    (length(ConsoleUpdateParameter) = 3);
+
+  if Result then
+  begin
+    //get the number
+    Result := TryStrToInt(ConsoleUpdateParameter[3], i);
+    if Result then
+    begin
+
+      //check if it is within range
+      Result := (i >= Ord(low(TTrackerListOrder))) and
+        (i <= Ord(high(TTrackerListOrder)));
+
+      if Result then
+        TrackerList.TrackerListOrderForUpdatedTorrent := TTrackerListOrder(i);
+
+{
+       //decode number [0..7]
+      case i of
+        0: TrackerList.TrackerListOrderForUpdatedTorrent := tloInsertNewBeforeAndKeepNewIntact;      //tloInsertNewBeforeAndKeepNewIntact
+        1: TrackerList.TrackerListOrderForUpdatedTorrent := tloInsertNewBeforeAndKeepOriginalIntact; //tloInsertNewBeforeAndKeepOriginalIntact
+        2: TrackerList.TrackerListOrderForUpdatedTorrent := tloAppendNewAfterAndKeepNewIntact;       //tloAppendNewAfterAndKeepNewIntact
+        3: TrackerList.TrackerListOrderForUpdatedTorrent := tloAppendNewAfterAndKeepOriginalIntact; //tloAppendNewAfterAndKeepOriginalIntact
+        4: TrackerList.TrackerListOrderForUpdatedTorrent := tloSort;
+        5: TrackerList.TrackerListOrderForUpdatedTorrent := tloInsertNewBeforeAndKeepOriginalIntactAndRemoveNothing;
+        6: TrackerList.TrackerListOrderForUpdatedTorrent := tloAppendNewAfterAndKeepOriginalIntactAndRemoveNothing;
+        7: TrackerList.TrackerListOrderForUpdatedTorrent := tloRandomize;
+        else
+        begin
+          //the number is out of range.
+          Result := False;
+        end;
+      end;
+}
+
+    end;
+  end;
+
+  if not Result then
+  begin
+    TrackerList.LogStringList.Add('ERROR: can not decode update parameter -U : ' +
+      ConsoleUpdateParameter);
+  end;
+end;
+
+function TrackerURLWithAnnounce(const TrackerURL: UTF8String): boolean;
+const
+  ANNOUNCE_STRING: string = '/announce';
+  ANNOUNCE_PHP_STRING: string = '/announce.php';
+begin
+  //TrackerURL must end with ANNOUNCE_STRING
+  Result := (RightStr(TrackerURL, length(ANNOUNCE_STRING)) = ANNOUNCE_STRING) or
+    (RightStr(TrackerURL, length(ANNOUNCE_PHP_STRING)) = ANNOUNCE_PHP_STRING);
+
+end;
+
+end.
diff --git a/source/code/trackerlist_online.pas b/source/code/trackerlist_online.pas
new file mode 100644
index 0000000..65c09d7
--- /dev/null
+++ b/source/code/trackerlist_online.pas
@@ -0,0 +1,100 @@
+// SPDX-License-Identifier: MIT
+unit trackerlist_online;
+
+{
+  Get the status of the TrackerURL by comparing with the 'online trackers database'
+  These data are comming from https://newtrackon.com/
+}
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils;
+
+type
+  //What is the status of this tracker
+  TTrackerListOnlineStatus = (
+    tos_stable,            //< Most of the time present online
+    tos_live_but_unstable, //< Is present online but unstable
+    tos_dead,              //< Was alive but now is dead
+    tos_unknown            //< not in the database present
+    );
+
+  { TTrackerListOnline }
+
+  TTrackerListOnline = class
+  private
+  public
+    // currently active and responding trackers.
+    TrackerList_Live: TStringList;
+
+    // trackers that have an uptime of equal or more than 95%.
+    TrackerList_Stable: TStringList;
+
+    // trackers that no longer present in 'live' list
+    TrackerList_Dead: TStringList;
+
+    //return the status of the TrackerURL
+    function TrackerStatus(const TrackerURL: UTF8String): TTrackerListOnlineStatus;
+    function TrackerListOnlineStatusToString(Value: TTrackerListOnlineStatus): string;
+  end;
+
+
+implementation
+
+
+{ TTrackerListOnline }
+
+function TTrackerListOnline.TrackerStatus(
+  const TrackerURL: UTF8String): TTrackerListOnlineStatus;
+  //var
+  //  index: integer;
+begin
+  //look for this tracker in all the posible string list
+
+  //TrackerList_Stable
+  if Assigned(TrackerList_Stable) and (TrackerList_Stable.IndexOf(TrackerURL) >= 0) then
+  begin
+    Result := tos_stable;
+    exit;
+  end;
+
+  //TrackerList_Dead
+  if Assigned(TrackerList_Dead) and (TrackerList_Dead.IndexOf(TrackerURL) >= 0) then
+  begin
+    Result := tos_dead;
+    exit;
+  end;
+
+  //TrackerList_Live
+  if Assigned(TrackerList_Live) and (TrackerList_Live.IndexOf(TrackerURL) >= 0) then
+  begin
+    //This tracker is online but not in present in the stable list.
+    //It is then mark as unstable
+    Result := tos_live_but_unstable;
+    exit;
+  end;
+
+  Result := tos_unknown;
+
+end;
+
+function TTrackerListOnline.TrackerListOnlineStatusToString(
+  Value: TTrackerListOnlineStatus): string;
+begin
+  case Value of
+    tos_stable: Result := 'Stable';
+    tos_live_but_unstable: Result := 'Unstable';
+    tos_dead: Result := 'Dead';
+    tos_unknown: Result := 'Unknown';
+    else
+      begin
+        Result := '';
+        assert(True, 'Unknown TTrackerListOnlineStatus')
+      end;
+  end;
+end;
+
+end.
diff --git a/source/decodetorrent.pas b/source/decodetorrent.pas
deleted file mode 100644
index e34be6f..0000000
--- a/source/decodetorrent.pas
+++ /dev/null
@@ -1,681 +0,0 @@
-unit DecodeTorrent;
-
-{
-todo
-   DecodeTorrent should decode all the property and not some.
-}
-
-{$mode objfpc}{$H+}
-{
- Get all the tracker list inside the torrent file.
- And place it in TrackerList: TStringList
-
- Modify public/private flag
-
- Modify announce List
-
-
- You can use bencode editor and utorrent to verify the output of this program.
- https://sites.google.com/site/ultimasites/bencode-editor
-  }
-interface
-
-uses
-  Classes, SysUtils, contnrs, LazUTF8Classes, BEncode;
-
-type
-
-  //Every torrent file have one or more files.
-  TDecodeTorrentFile = record
-    Filename: utf8string;
-    FileLength: int64;
-  end;
-
-  TDecodeTorrentFileNameAndLength = class
-    Filename: utf8string;
-    FileLength: int64;
-  end;
-
-
-  { TDecodeTorrent }
-  TDecodeTorrent = class
-  private
-    FFilenameTorrent: UTF8String;
-    FMemoryStream: TMemoryStream;
-    FBEncoded: TBEncoded;
-    FObjectListFileNameAndLength: TObjectList;
-    FTotalFileSize: int64;
-
-    //Torrent file must have 'info' item.
-    FBEncoded_Info:TBEncoded;
-    FBEncoded_Comment: TBEncoded;
-
-    FInfoHash: utf8string;
-    FCreatedBy: utf8string;
-    FCreatedDate: TDateTime;
-    FComment: utf8string;
-    FName: utf8string;
-    FPieceLenght: int64;
-    FPrivateTorrent: boolean;
-
-    function DecodeTorrent: boolean; overload;
-
-    function GetAnnounceList: boolean;
-    function GetFileList: boolean;
-    function GetInfoHash: utf8string;
-    function GetCreatedBy: utf8string;
-    function GetCreatedDate: TDateTime;
-    function GetComment: utf8string;
-    function GetName: utf8string;
-    function GetPieceLenght: int64;
-    function GetPrivateTorrent: boolean;
-    procedure SetComment(const AValue: utf8string);
-  public
-    //All the trackers inside this torrent file
-    TrackerList: TStringList;
-
-    property FilenameTorrent: UTF8String read FFilenameTorrent;
-
-    //Every torrent file have one or more files.
-    //   TorrentFilesArray: Array of TDecodeTorrentFile;
-    property TotalFileSize: int64 read FTotalFileSize;
-
-    //Info hash
-    property InfoHash: utf8string read FInfoHash;
-
-    //Created by
-    property CreatedBy: utf8string read FCreatedBy;
-
-    //Create Date
-    property CreatedDate: TDateTime read FCreatedDate;
-
-    //Comment
-    property Comment: utf8string read FComment write SetComment;
-
-    //info.name
-    property Name: utf8string read FName;
-
-    //info.piecelength
-    property PieceLenght: int64 read FPieceLenght;
-
-    //public/private flag
-    property PrivateTorrent: boolean read FPrivateTorrent;
-    procedure RemovePrivateTorrentFlag;
-    procedure AddPrivateTorrentFlag;
-
-    //info.files
-    function InfoFilesCount: integer;
-    function InfoFilesNameIndex(index: integer): utf8string;
-    function InfoFilesLengthIndex(index: integer): int64;
-
-    //Announce list
-    procedure RemoveAnnounce;
-    procedure RemoveAnnounceList;
-    procedure ChangeAnnounce(const TrackerURL: utf8string);
-    procedure ChangeAnnounceList(StringList: TStringList);
-
-    //Load torrent file
-    function DecodeTorrent(const Filename: utf8string): boolean; overload;
-    function DecodeTorrent(Stream: TStream): boolean; overload;
-
-    //save torrent file
-    function SaveTorrent(const Filename: utf8string): boolean;
-
-    //create/destroy class object
-    constructor Create;
-    destructor Destroy; override;
-  end;
-
-implementation
-
-uses dateutils, SHA1, FileUtil, LazUTF8;
-
-function SortFileName(Item1, Item2: Pointer): integer;
-begin
-  Result := UTF8CompareText(TDecodeTorrentFileNameAndLength(Item1).Filename,
-    TDecodeTorrentFileNameAndLength(Item2).Filename);
-end;
-
-
-function Sort_(Item1, Item2: Pointer): integer;
-begin
-  Result := UTF8CompareText(TBEncodedData(Item1).Header, TBEncodedData(Item2).Header);
-end;
-
-{ TDecodeTorrent }
-constructor TDecodeTorrent.Create;
-begin
-  inherited;
-  //Every torrent have
-  FObjectListFileNameAndLength := TObjectList.Create;
-
-
-  TrackerList := TStringList.Create;
-  TrackerList.Duplicates := dupIgnore;
-  TrackerList.Sorted := True;
-  FMemoryStream := TMemoryStream.Create;
-
-end;
-
-destructor TDecodeTorrent.Destroy;
-begin
-  //Free all the memory we have create.
-  FObjectListFileNameAndLength.Free;
-  TrackerList.Free;
-  FMemoryStream.Free;
-
-  //FBEncoded may or may not be created.
-  if assigned(FBEncoded) then
-    FBEncoded.Free;
-  inherited;
-end;
-
-function TDecodeTorrent.DecodeTorrent(const Filename: utf8string): boolean;
-var
-  S: TFileStreamUtf8;
-begin
-  FFilenameTorrent := Filename;
-  //Load torrent file in FMemoryStream. This will be process by DecodeTorrent();
-  try
-    //Support FilenameTorrent with unicode.
-    S := TFileStreamUtf8.Create(FilenameTorrent, fmOpenRead or fmShareDenyWrite);
-    try
-      FMemoryStream.LoadFromStream(S);
-    finally
-      S.Free;
-    end;
-    Result := DecodeTorrent();
-  except
-    Result := False;
-  end;
-end;
-
-function TDecodeTorrent.DecodeTorrent(Stream: TStream): boolean;
-begin
-  //copy Stream -> FMemoryStream
-  try
-    FMemoryStream.Clear;
-    Stream.Seek(0, soBeginning);
-    FMemoryStream.LoadFromStream(Stream);
-    Result := DecodeTorrent();
-  except;
-    Result := False;
-  end;
-end;
-
-function TDecodeTorrent.GetAnnounceList: boolean;
-var
-  TempBEncoded: TBEncoded;
-  i, Count: integer;
-begin
-  //return false, if crash at decoding. Announce is optional in torrent file.
-  TrackerList.Clear;
-  Result := True;
-  try
-    {find 'announce-list' and copy the list content to TrackerList}
-      //process 'announce'
-      TempBEncoded := FBEncoded.ListData.FindElement('announce');
-      if assigned(TempBEncoded) then
-      begin
-        TrackerList.Add(TempBEncoded.StringData);
-      end;
-
-      //process 'announce-list'
-      TempBEncoded := FBEncoded.ListData.FindElement('announce-list');
-      if assigned(TempBEncoded) then
-      begin
-        Count := TempBEncoded.ListData.Count;
-        if Count > 0 then
-        begin
-          for i := 0 to Count - 1 do
-          begin//there is a list in side a list!
-            TrackerList.Add(TempBEncoded.ListData.Items[i].Data.ListData.First.Data.StringData);
-          end;
-        end;
-      end;
-
-  except
-    Result := False;
-  end;
-end;
-
-function TDecodeTorrent.GetFileList: boolean;
-var
-  //TempBEncodedInfo,
-    TempBEncodedInfoFiles, TempBEncodedInfoFilesPath: TBEncoded;
-  TempBEncodedInfoFilesData: TBEncodedData;
-
-  i, x, countFiles, countPath: integer;
-  FilenameWithPathStr, Filename: utf8string;
-
-  DecodeTorrentFileName: TDecodeTorrentFileNameAndLength;
-  FileLength: int64;
-begin
-{ info/files/path  -> all the files names
-  or
-  info/name -> one file name only
-}
-  //return false if there is no file at all. This must not be posible.
-
-  FObjectListFileNameAndLength.Clear;
-  FTotalFileSize := 0;
-  try
-
-    {find 'info.files' }
-      TempBEncodedInfoFiles := FBEncoded_Info.ListData.FindElement('files');
-
-      if assigned(TempBEncodedInfoFiles) then
-      begin //'info.files' found
-        countFiles := TempBEncodedInfoFiles.ListData.Count;
-        if countFiles > 0 then
-        begin
-          for i := 0 to countFiles - 1 do
-          begin
-            //Get the info.files node.
-            TempBEncodedInfoFilesData := TempBEncodedInfoFiles.ListData.Items[i];
-
-            //Get the file name with path
-            FilenameWithPathStr := '';
-            TempBEncodedInfoFilesPath :=
-              TempBEncodedInfoFilesData.Data.ListData.FindElement('path');
-            countPath := TempBEncodedInfoFilesPath.ListData.Count;
-            for x := 0 to countPath - 1 do
-            begin
-              FilenameWithPathStr :=
-                FilenameWithPathStr + DirectorySeparator +
-                TempBEncodedInfoFilesPath.ListData.Items[x].Data.StringData;
-            end;
-
-
-            //Get the file length
-            FileLength := TempBEncodedInfoFilesData.Data.ListData.FindElement(
-              'length').IntegerData;
-
-            DecodeTorrentFileName := TDecodeTorrentFileNameAndLength.Create;
-            DecodeTorrentFileName.Filename := FilenameWithPathStr;
-            DecodeTorrentFileName.FileLength := FileLength;
-            FObjectListFileNameAndLength.Add(DecodeTorrentFileName);
-            //add it to the total sum of all files inside the torrent.
-            Inc(FTotalFileSize, FileLength);
-          end;
-
-        end;
-      end
-      else //there is no 'info.files' found. This is an 'one file' torrent.
-      begin//  Look for'info.name' and 'info.length'
-        //Get the file name
-        Filename := FBEncoded_Info.ListData.FindElement('name').StringData;
-
-        FileLength := FBEncoded_Info.ListData.FindElement('length').IntegerData;
-
-        DecodeTorrentFileName := TDecodeTorrentFileNameAndLength.Create;
-        DecodeTorrentFileName.Filename := Filename;
-        DecodeTorrentFileName.FileLength := FileLength;
-        FObjectListFileNameAndLength.Add(DecodeTorrentFileName);
-
-
-        Inc(FTotalFileSize, FileLength);
-      end;
-
-
-
-    //There is file found inside the torrent.
-    Result := FObjectListFileNameAndLength.Count > 0;
-    //We prefer that the file name are in sorted order.
-    FObjectListFileNameAndLength.Sort(@SortFileName);
-
-  except
-    //Can not found items that should be present.
-    Result := False;
-  end;
-
-end;
-
-function TDecodeTorrent.DecodeTorrent: boolean;
-begin
-  Result := False;
-  try
-    //Free the old one before creating a new one
-    if assigned(FBEncoded) then
-    begin
-      FreeAndNil(FBEncoded);
-    end;
-
-    //the torrent file inside FMemoryStream -> BEnencode it
-    FMemoryStream.Position := 0;
-    FBEncoded := TBEncoded.Create(FMemoryStream);
-
-
-
-
-    //Read the tracker list and file list inside the torrent file.
-    FTotalFileSize := 0;
-    TrackerList.Clear;
-
-    FObjectListFileNameAndLength.Clear;
-    FTotalFileSize := 0;
-
-
-    //torrent file MUST begin with befDictionary.
-    if FBEncoded.Format <> befDictionary then
-        exit; //error
-
-    //torrent MUST have 'info'
-    FBEncoded_Info := FBEncoded.ListData.FindElement('info');
-    if not assigned(FBEncoded_Info) then
-       exit; //error
-
-
-    //Accept torrent only when there is no issue in reading AnnounceList and file list
-    if GetAnnounceList and GetFileList then
-    begin
-      Result := True;
-    end;
-
-      FInfoHash := GetInfoHash;
-      FCreatedBy := GetCreatedBy;
-      FCreatedDate := GetCreatedDate;
-      FComment := GetComment;
-      FName := GetName;
-      FPieceLenght := GetPieceLenght;
-      FPrivateTorrent:=GetPrivateTorrent;
-
-  except
-  end;
-end;
-
-function TDecodeTorrent.InfoFilesCount: integer;
-begin
-  Result := FObjectListFileNameAndLength.Count;
-end;
-
-function TDecodeTorrent.InfoFilesNameIndex(index: integer): utf8string;
-begin
-  Result := TDecodeTorrentFileNameAndLength(
-    FObjectListFileNameAndLength[index]).Filename;
-end;
-
-function TDecodeTorrent.InfoFilesLengthIndex(index: integer): int64;
-begin
-  Result := TDecodeTorrentFileNameAndLength(FObjectListFileNameAndLength[index]).FileLength;
-end;
-
-
-function TDecodeTorrent.GetPrivateTorrent: boolean;
-var
-  TempBEncoded: TBEncoded;
-begin
-  Result := False;
-  try
-    {find 'private' }
-    TempBEncoded := FBEncoded_Info.ListData.FindElement('private');
-    if assigned(TempBEncoded) then
-      Result := TempBEncoded.IntegerData = 1;
-  except
-  end;
-end;
-
-procedure TDecodeTorrent.SetComment(const AValue: utf8string);
-var
-//  Encoded: TBEncoded;
-  Data: TBEncodedData;
-begin
-  if FComment=AValue then Exit;
-  FComment:=AValue;
-  try
-    //if empty comment then remove the element.
-    if FComment = '' then
-    begin
-      FBEncoded.ListData.RemoveElement('comment');
-      exit;
-    end;
-
-    //if there is no comment element, then make new one
-    if not assigned(FBEncoded_Comment) then
-    begin
-      FBEncoded_Comment := TBEncoded.Create;
-      FBEncoded_Comment.Format := befString;
-      FBEncoded_Comment.StringData := FComment;
-      Data := TBEncodedData.Create(FBEncoded_Comment);
-      Data.Header := 'comment';
-      FBEncoded.ListData.Add(Data);
-    end
-    else
-    begin
-      FBEncoded_Comment.StringData := FComment;
-    end;
-
-  except
-  end;
-
-end;
-
-
-{
-try
-    Encoded := TBEncoded.Create;
-    Encoded.Format := befString;
-    Encoded.StringData := TrackerURL;
-    Data := TBEncodedData.Create(Encoded);
-    Data.Header := 'announce';
-    FBEncoded.ListData.Add(Data);
-    FBEncoded.ListData.Sort(@sort_);//text must be in alfabetical order.
-except
-end;
-
-}
-
-procedure TDecodeTorrent.RemovePrivateTorrentFlag;
-begin
-  try
-    FBEncoded_Info.ListData.RemoveElement('private');
-  except
-  end;
-  //read databack again
-  GetPrivateTorrent;
-end;
-
-procedure TDecodeTorrent.AddPrivateTorrentFlag;
-var
-   Encoded: TBEncoded;
-  Data: TBEncodedData;
-begin//remove the old one and create a new one
-  RemovePrivateTorrentFlag;
-  try
-      Encoded := TBEncoded.Create;
-      Encoded.Format := befInteger;
-      Encoded.IntegerData := 1;
-      Data := TBEncodedData.Create(Encoded);
-      Data.Header := 'private';
-      FBEncoded_Info.ListData.Add(Data);
-      FBEncoded_Info.ListData.Sort(@sort_);//text must be in alfabetical order.
-  except
-  end;
-  //read databack again
-  GetPrivateTorrent;
-end;
-
-procedure TDecodeTorrent.RemoveAnnounce;
-begin
-  try
-      FBEncoded.ListData.RemoveElement('announce');
-  except
-  end;
-end;
-
-procedure TDecodeTorrent.RemoveAnnounceList;
-begin
-  try
-      FBEncoded.ListData.RemoveElement('announce-list');
-  except
-  end;
-end;
-
-function TDecodeTorrent.SaveTorrent(const Filename: utf8string): boolean;
-var
-  str: utf8string;
-  S: TFileStreamUTF8;
-begin
-  Result := True;
-  try
-    //Encode it to string format
-    str := '';
-    TBEncoded.Encode(FBEncoded, str);
-    //Write string to file. Support filename with unicode.
-    S := TFileStreamUTF8.Create(FileName, fmCreate);
-    try
-      s.Write(Str[1], length(Str));
-    finally
-      S.Free;
-    end;
-  except
-    Result := False;
-  end;
-end;
-
-
-
-procedure TDecodeTorrent.ChangeAnnounce(const TrackerURL: utf8string);
-var
-  Encoded: TBEncoded;
-  Data: TBEncodedData;
-begin//remove the old one and create a new one
-  RemoveAnnounce;
-  try
-      Encoded := TBEncoded.Create;
-      Encoded.Format := befString;
-      Encoded.StringData := TrackerURL;
-      Data := TBEncodedData.Create(Encoded);
-      Data.Header := 'announce';
-      FBEncoded.ListData.Add(Data);
-      FBEncoded.ListData.Sort(@sort_);//text must be in alfabetical order.
-  except
-  end;
-end;
-
-procedure TDecodeTorrent.ChangeAnnounceList(StringList: TStringList);
-var
-  EncodedListRoot, EncodedList, EncodedString: TBEncoded;
-  Data, Data2, DataRootBEncodedData: TBEncodedData;
-  i: integer;
-begin
-  //remove the present one.
-  RemoveAnnounceList;
-  //if there is nothing in the list then exit.
-  if StringList.Count = 0 then
-    Exit;
-  //create a new anounce list
-  try
-      //Create the 'announce-list'
-      EncodedListRoot := TBEncoded.Create;
-      EncodedListRoot.Format := befList;
-      EncodedListRoot.ListData := TBEncodedDataList.Create;
-      DataRootBEncodedData := TBEncodedData.Create(EncodedListRoot);
-      DataRootBEncodedData.Header := 'announce-list';
-      FBEncoded.ListData.Add(DataRootBEncodedData); //root
-
-      //Create list inside 'announce-list'
-      //            Str := TempBEncoded.ListData.Items[i].Data.ListData.First.Data.StringData;
-
-      for i := 0 to StringList.Count - 1 do
-      begin
-        //create a list with string element
-        EncodedList := TBEncoded.Create;
-        EncodedList.Format := befList;
-        EncodedList.ListData := TBEncodedDataList.Create;
-        Data := TBEncodedData.Create(EncodedList);
-        // add list to the list
-        EncodedListRoot.ListData.Add(Data);
-
-        //String ellement inside the list
-        EncodedString := TBEncoded.Create;
-        EncodedString.Format := befString;
-        EncodedString.StringData := StringList[i];
-        Data2 := TBEncodedData.Create(EncodedString);
-
-        EncodedList.ListData.Add(DAta2);
-      end;
-
-      FBEncoded.ListData.Sort(@sort_);//text must be in alfabetical order.
-  except
-  end;
-end;
-
-function TDecodeTorrent.GetInfoHash: utf8string;
-begin
-  Result := '';
-  try
-    //The info.value will be hash with SHA1
-      TBEncoded.Encode(FBEncoded_Info, Result);
-      Result := UpperCase(  SHA1Print(SHA1String(Result)));
-  except
-  end;
-end;
-
-function TDecodeTorrent.GetCreatedBy: utf8string;
-var
-  TempBEncoded: TBEncoded;
-begin
-  Result := '';
-  try
-      TempBEncoded := FBEncoded.ListData.FindElement('created by');
-      if assigned(TempBEncoded) then
-        Result := TempBEncoded.StringData;
-
-  except
-  end;
-end;
-
-function TDecodeTorrent.GetCreatedDate: TDateTime;
-var
-  TempBEncoded: TBEncoded;
-begin
-  Result := 0; //Some torrent have no creation date
-  try
-      TempBEncoded := FBEncoded.ListData.FindElement('creation date');
-      if assigned(TempBEncoded) then
-        Result := UnixToDateTime(TempBEncoded.IntegerData);
-  except
-  end;
-end;
-
-function TDecodeTorrent.GetComment: utf8string;
-begin
-  Result := '';
-  try
-      FBEncoded_Comment := FBEncoded.ListData.FindElement('comment');
-      if assigned(FBEncoded_Comment) then
-        Result := UTF8Trim( FBEncoded_Comment.StringData);
-  except
-  end;
-end;
-
-function TDecodeTorrent.GetName: utf8string;
-var
-  TempBEncoded: TBEncoded;
-begin
-  Result := '';
-  try
-    {find 'name' }
-    TempBEncoded :=  FBEncoded_Info.ListData.FindElement('name');
-    if assigned(TempBEncoded) then
-      Result := TempBEncoded.StringData;
-  except
-  end;
-end;
-
-function TDecodeTorrent.GetPieceLenght: int64;
-var
-  TempBEncoded: TBEncoded;
-begin
-  Result := 0;
-  try
-    {find 'piece length' }
-    TempBEncoded := FBEncoded_Info.ListData.FindElement('piece length');
-    if assigned(TempBEncoded) then
-      Result := TempBEncoded.IntegerData;
-  except
-  end;
-end;
-
-end.
diff --git a/source/link.res b/source/link.res
deleted file mode 100644
index cd9f6b7..0000000
--- a/source/link.res
+++ /dev/null
@@ -1,452 +0,0 @@
-SEARCH_DIR(C:\lazarus\lcl\units\i386-win32\win32\)
-SEARCH_DIR(C:\lazarus\lcl\units\i386-win32\)
-SEARCH_DIR(C:\lazarus\components\lazutils\lib\i386-win32\)
-SEARCH_DIR(C:\lazarus\packager\units\i386-win32\)
-SEARCH_DIR(.\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\httpd22\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\rtl\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\zorba\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\zlib\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\winunits-jedi\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\winunits-base\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\winceunits\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\unzip\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\tcl\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\symbolic\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\sqlite\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\sdl\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\rsvg\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\regexpr\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\pxlib\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\ptc\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\postgres\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\pcap\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\paszlib\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\pasjpeg\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\oracle\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\openssl\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\opengl\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\opencl\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\openal\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\oggvorbis\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\odbc\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\nvapi\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\numlib\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\mysql\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\mad\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\lua\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\libxml2\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\libsee\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\libpng\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\libgd\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\lexyacc\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\imagemagick\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\ibase\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\hermes\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\hash\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\gtk2\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\gtk1\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\graph\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\gmp\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\gdbint\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\fv\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\fppkg\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\fpmkunit\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\fpindexer\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\fpgtk\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\fftw\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\fcl-xml\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\fcl-web\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\fcl-res\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\fcl-registry\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\fcl-process\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\fcl-passrc\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\fcl-net\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\fcl-json\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\fcl-js\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\fcl-image\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\fcl-fpcunit\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\fcl-extra\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\fcl-db\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\fcl-base\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\fastcgi\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\dblib\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\chm\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\cdrom\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\cairo\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\bzip2\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\aspell\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\a52\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\units\i386-win32\)
-SEARCH_DIR(C:\lazarus\fpc\2.6.2\bin\i386-win32\)
-INPUT(
-D:\lazarus\source\trackereditor\src\lib\i386-win32\trackereditor.o
-D:\lazarus\source\trackereditor\src\lib\i386-win32\trackereditor.or
-C:\lazarus\fpc\2.6.2\units\i386-win32\rtl\system.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\rtl\fpintres.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\rtl\objpas.o
-C:\lazarus\lcl\units\i386-win32\win32\interfaces.o
-C:\lazarus\lcl\units\i386-win32\forms.o
-D:\lazarus\source\trackereditor\src\lib\i386-win32\main.o
-D:\lazarus\source\trackereditor\src\lib\i386-win32\bencode.o
-D:\lazarus\source\trackereditor\src\lib\i386-win32\decodetorrent.o
-C:\lazarus\lcl\units\i386-win32\interfacebase.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\rtl\types.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\rtl\classes.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\rtl\sysutils.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\rtl\math.o
-C:\lazarus\lcl\units\i386-win32\lclstrconsts.o
-C:\lazarus\lcl\units\i386-win32\lcltype.o
-C:\lazarus\lcl\units\i386-win32\lclproc.o
-C:\lazarus\lcl\units\i386-win32\lmessages.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\fcl-image\fpimage.o
-C:\lazarus\lcl\units\i386-win32\graphtype.o
-C:\lazarus\lcl\units\i386-win32\graphmath.o
-C:\lazarus\lcl\units\i386-win32\intfgraphics.o
-C:\lazarus\lcl\units\i386-win32\themes.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\rtl\windows.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\rtl\rtlconsts.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\rtl\typinfo.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\rtl\sysconst.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\rtl\windirs.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\winunits-base\win9xwsmanager.o
-C:\lazarus\components\lazutils\lib\i386-win32\lazlogger.o
-C:\lazarus\lcl\units\i386-win32\fpcadds.o
-C:\lazarus\components\lazutils\lib\i386-win32\avglvltree.o
-C:\lazarus\components\lazutils\lib\i386-win32\fileutil.o
-C:\lazarus\lcl\units\i386-win32\wsreferences.o
-C:\lazarus\components\lazutils\lib\i386-win32\lazmethodlist.o
-C:\lazarus\components\lazutils\lib\i386-win32\lazutf8.o
-C:\lazarus\components\lazutils\lib\i386-win32\lazloggerbase.o
-C:\lazarus\components\lazutils\lib\i386-win32\lazclasses.o
-C:\lazarus\components\lazutils\lib\i386-win32\masks.o
-C:\lazarus\components\lazutils\lib\i386-win32\lazutilsstrconsts.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\fcl-base\contnrs.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\fcl-base\gettext.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\rtl\messages.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\fcl-image\fpreadbmp.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\fcl-image\fpwritebmp.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\fcl-image\bmpcomn.o
-C:\lazarus\lcl\units\i386-win32\lclversion.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\fcl-image\fpreadpng.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\fcl-image\fpwritepng.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\fcl-image\fpreadtiff.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\fcl-image\fpwritetiff.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\fcl-image\fptiffcmn.o
-C:\lazarus\lcl\units\i386-win32\icnstypes.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\fcl-image\fpimgcmn.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\fcl-image\pngcomn.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\paszlib\zstream.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\paszlib\zbase.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\paszlib\gzio.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\rtl\dos.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\hash\crc.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\paszlib\zdeflate.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\paszlib\zinflate.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\rtl\strings.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\paszlib\trees.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\paszlib\adler.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\paszlib\infblock.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\paszlib\infutil.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\paszlib\infcodes.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\paszlib\inftrees.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\paszlib\inffast.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\rtl\ctypes.o
-C:\lazarus\lcl\units\i386-win32\graphics.o
-C:\lazarus\lcl\units\i386-win32\lclintf.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\fcl-image\fpcanvas.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\fcl-image\fpreadpnm.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\fcl-image\fpwritepnm.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\fcl-image\fpreadjpeg.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\fcl-image\fpwritejpeg.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\fcl-image\fpreadgif.o
-C:\lazarus\lcl\units\i386-win32\lresources.o
-C:\lazarus\lcl\units\i386-win32\lclrescache.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\fcl-image\clipping.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\pasjpeg\jpeglib.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\pasjpeg\jdapimin.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\pasjpeg\jdatasrc.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\pasjpeg\jdapistd.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\pasjpeg\jmorecfg.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\pasjpeg\jdeferr.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\pasjpeg\jinclude.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\pasjpeg\jerror.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\pasjpeg\jmemmgr.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\pasjpeg\jdmarker.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\pasjpeg\jdinput.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\pasjpeg\jcomapi.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\pasjpeg\jutils.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\pasjpeg\jmemnobs.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\pasjpeg\jdmaster.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\pasjpeg\jdcolor.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\pasjpeg\jdsample.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\pasjpeg\jdpostct.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\pasjpeg\jddctmgr.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\pasjpeg\jdphuff.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\pasjpeg\jdhuff.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\pasjpeg\jdcoefct.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\pasjpeg\jdmainct.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\pasjpeg\jquant1.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\pasjpeg\jquant2.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\pasjpeg\jdmerge.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\pasjpeg\jdct.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\pasjpeg\jidctfst.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\pasjpeg\jidctint.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\pasjpeg\jidctflt.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\pasjpeg\jidctred.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\pasjpeg\jcapistd.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\pasjpeg\jcapimin.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\pasjpeg\jdatadst.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\pasjpeg\jcparam.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\pasjpeg\jcinit.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\pasjpeg\jcmarker.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\pasjpeg\jcphuff.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\pasjpeg\jchuff.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\pasjpeg\jcmaster.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\pasjpeg\jccolor.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\pasjpeg\jcsample.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\pasjpeg\jcprepct.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\pasjpeg\jcdctmgr.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\pasjpeg\jccoefct.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\pasjpeg\jcmainct.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\pasjpeg\jfdctint.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\pasjpeg\jfdctfst.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\pasjpeg\jfdctflt.o
-C:\lazarus\lcl\units\i386-win32\dynqueue.o
-C:\lazarus\lcl\units\i386-win32\lazconfigstorage.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\fcl-base\syncobjs.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\winunits-base\shellapi.o
-C:\lazarus\lcl\units\i386-win32\utf8process.o
-C:\lazarus\lcl\units\i386-win32\maps.o
-C:\lazarus\components\lazutils\lib\i386-win32\lazutf8sysutils.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\winunits-base\activex.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\rtl\variants.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\rtl\varutils.o
-C:\lazarus\lcl\units\i386-win32\tmschema.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\fcl-process\process.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\fcl-process\pipes.o
-C:\lazarus\lcl\units\i386-win32\win32\win32int.o
-C:\lazarus\lcl\units\i386-win32\translations.o
-C:\lazarus\lcl\units\i386-win32\comctrls.o
-C:\lazarus\lcl\units\i386-win32\controls.o
-C:\lazarus\lcl\units\i386-win32\buttons.o
-C:\lazarus\lcl\units\i386-win32\dialogs.o
-C:\lazarus\lcl\units\i386-win32\stdctrls.o
-C:\lazarus\lcl\units\i386-win32\win32\win32def.o
-C:\lazarus\lcl\units\i386-win32\menus.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\winunits-base\commctrl.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\winunits-base\multimon.o
-C:\lazarus\lcl\units\i386-win32\stringhashlist.o
-C:\lazarus\components\lazutils\lib\i386-win32\lconvencoding.o
-C:\lazarus\lcl\units\i386-win32\imglist.o
-C:\lazarus\lcl\units\i386-win32\actnlist.o
-C:\lazarus\lcl\units\i386-win32\extctrls.o
-C:\lazarus\lcl\units\i386-win32\toolwin.o
-C:\lazarus\lcl\units\i386-win32\wslclclasses.o
-C:\lazarus\lcl\units\i386-win32\lclclasses.o
-C:\lazarus\lcl\units\i386-win32\wsimglist.o
-C:\lazarus\lcl\units\i386-win32\wsproc.o
-C:\lazarus\lcl\units\i386-win32\wsfactory.o
-C:\lazarus\lcl\units\i386-win32\propertystorage.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\fcl-base\rttiutils.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\rtl\strutils.o
-C:\lazarus\lcl\units\i386-win32\wsmenus.o
-C:\lazarus\lcl\units\i386-win32\customtimer.o
-C:\lazarus\lcl\units\i386-win32\clipbrd.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\fcl-base\custapp.o
-C:\lazarus\lcl\units\i386-win32\helpintfs.o
-C:\lazarus\lcl\units\i386-win32\wscontrols.o
-C:\lazarus\lcl\units\i386-win32\wsforms.o
-C:\lazarus\lcl\units\i386-win32\extendedstrings.o
-C:\lazarus\lcl\units\i386-win32\textstrings.o
-C:\lazarus\lcl\units\i386-win32\wsstdctrls.o
-C:\lazarus\lcl\units\i386-win32\popupnotifier.o
-C:\lazarus\lcl\units\i386-win32\wsextctrls.o
-C:\lazarus\lcl\units\i386-win32\imagelistcache.o
-C:\lazarus\lcl\units\i386-win32\wsbuttons.o
-C:\lazarus\lcl\units\i386-win32\wscomctrls.o
-C:\lazarus\lcl\units\i386-win32\wstoolwin.o
-C:\lazarus\lcl\units\i386-win32\buttonpanel.o
-C:\lazarus\lcl\units\i386-win32\wsdialogs.o
-C:\lazarus\lcl\units\i386-win32\win32\win32proc.o
-C:\lazarus\lcl\units\i386-win32\win32\win32wsfactory.o
-C:\lazarus\lcl\units\i386-win32\win32\win32wsbuttons.o
-C:\lazarus\lcl\units\i386-win32\win32\win32wsmenus.o
-C:\lazarus\lcl\units\i386-win32\win32\win32wsstdctrls.o
-C:\lazarus\lcl\units\i386-win32\win32\win32wsdialogs.o
-C:\lazarus\lcl\units\i386-win32\win32\win32themes.o
-C:\lazarus\lcl\units\i386-win32\win32\win32extra.o
-C:\lazarus\lcl\units\i386-win32\lclmessageglue.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\winunits-base\shlobj.o
-C:\lazarus\lcl\units\i386-win32\calendar.o
-C:\lazarus\lcl\units\i386-win32\arrow.o
-C:\lazarus\lcl\units\i386-win32\spin.o
-C:\lazarus\lcl\units\i386-win32\extdlgs.o
-C:\lazarus\lcl\units\i386-win32\checklst.o
-C:\lazarus\lcl\units\i386-win32\grids.o
-C:\lazarus\lcl\units\i386-win32\wscalendar.o
-C:\lazarus\lcl\units\i386-win32\wsarrow.o
-C:\lazarus\lcl\units\i386-win32\wsspin.o
-C:\lazarus\lcl\units\i386-win32\wsextdlgs.o
-C:\lazarus\lcl\units\i386-win32\wschecklst.o
-C:\lazarus\lcl\units\i386-win32\dynamicarray.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\fcl-xml\xmlconf.o
-C:\lazarus\lcl\units\i386-win32\maskedit.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\fcl-xml\dom.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\fcl-xml\xmlread.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\fcl-xml\xmlwrite.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\fcl-xml\xmlutils.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\fcl-xml\dtdmodel.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\fcl-base\uriparser.o
-C:\lazarus\lcl\units\i386-win32\wsgrids.o
-C:\lazarus\lcl\units\i386-win32\win32\win32wsarrow.o
-C:\lazarus\lcl\units\i386-win32\win32\win32wscalendar.o
-C:\lazarus\lcl\units\i386-win32\win32\win32wschecklst.o
-C:\lazarus\lcl\units\i386-win32\win32\win32wscomctrls.o
-C:\lazarus\lcl\units\i386-win32\win32\win32wscontrols.o
-C:\lazarus\lcl\units\i386-win32\win32\win32wsextctrls.o
-C:\lazarus\lcl\units\i386-win32\win32\win32wsextdlgs.o
-C:\lazarus\lcl\units\i386-win32\win32\win32wsforms.o
-C:\lazarus\lcl\units\i386-win32\win32\win32wsgrids.o
-C:\lazarus\lcl\units\i386-win32\win32\win32wsimglist.o
-C:\lazarus\lcl\units\i386-win32\win32\win32wsspin.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\winunits-base\uxtheme.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\winunits-base\commdlg.o
-C:\lazarus\fpc\2.6.2\units\i386-win32\rtl\sysinitpas.o
-)
-GROUP(
-C:\lazarus\fpc\2.6.2\units\i386-win32\rtl\libimpsystem.a
-C:\lazarus\fpc\2.6.2\units\i386-win32\rtl\libimpfpintres.a
-C:\lazarus\fpc\2.6.2\units\i386-win32\rtl\libimpsysutils.a
-C:\lazarus\fpc\2.6.2\units\i386-win32\rtl\libimpwindows.a
-C:\lazarus\fpc\2.6.2\units\i386-win32\rtl\libimpdos.a
-C:\lazarus\fpc\2.6.2\units\i386-win32\winunits-base\libimpshellapi.a
-C:\lazarus\fpc\2.6.2\units\i386-win32\winunits-base\libimpactivex.a
-C:\lazarus\fpc\2.6.2\units\i386-win32\rtl\libimpvarutils.a
-C:\lazarus\fpc\2.6.2\units\i386-win32\winunits-base\libimpcommctrl.a
-C:\lazarus\lcl\units\i386-win32\win32\libimpwin32extra.a
-C:\lazarus\fpc\2.6.2\units\i386-win32\winunits-base\libimpshlobj.a
-C:\lazarus\lcl\units\i386-win32\win32\libimpwin32wsforms.a
-C:\lazarus\fpc\2.6.2\units\i386-win32\winunits-base\libimpcommdlg.a
-C:\lazarus\fpc\2.6.2\units\i386-win32\rtl\libimpsysinitpas.a
-)
-SEARCH_DIR("/usr/i686-pc-cygwin/lib"); SEARCH_DIR("/usr/lib"); SEARCH_DIR("/usr/lib/w32api");
-OUTPUT_FORMAT(pei-i386)
-ENTRY(_mainCRTStartup)
-SECTIONS
-{
-  . = SIZEOF_HEADERS;
-  . = ALIGN(__section_alignment__);
-  .text  __image_base__ + ( __section_alignment__ < 0x1000 ? . : __section_alignment__ ) :
-  {
-    *(.init)
-    *(.text .stub .text.* .gnu.linkonce.t.*)
-    *(SORT(.text$*))
-    *(.glue_7t)
-    *(.glue_7)
-    . = ALIGN(8);
-     ___CTOR_LIST__ = .; __CTOR_LIST__ = . ;
-    LONG (-1);
-    *(.ctors); *(.ctor); *(SORT(.ctors.*));  LONG (0);
-     ___DTOR_LIST__ = .; __DTOR_LIST__ = . ;
-    LONG (-1);
-    *(.dtors); *(.dtor); *(SORT(.dtors.*));  LONG (0);
-     *(.fini)
-    PROVIDE (etext = .);
-    *(.gcc_except_table)
-  }
-  .data BLOCK(__section_alignment__) :
-  {
-    __data_start__ = . ;
-    *(.data .data.* .gnu.linkonce.d.* .fpc*)
-    *(.data2)
-    *(SORT(.data$*))
-    *(.jcr)
-    PROVIDE (__tls_index = .);
-    LONG (0);
-    __data_end__ = . ;
-    *(.data_cygwin_nocopy)
-  }
-  .rdata BLOCK(__section_alignment__) :
-  {
-    *(.rdata)
-    *(.rodata .rodata.* .gnu.linkonce.r.*)
-    *(SORT(.rdata$*))
-    *(.eh_frame)
-    ___RUNTIME_PSEUDO_RELOC_LIST__ = .;
-    __RUNTIME_PSEUDO_RELOC_LIST__ = .;
-    *(.rdata_runtime_pseudo_reloc)
-    ___RUNTIME_PSEUDO_RELOC_LIST_END__ = .;
-    __RUNTIME_PSEUDO_RELOC_LIST_END__ = .;
-  }
-  .pdata BLOCK(__section_alignment__) : { *(.pdata) }
-  .bss BLOCK(__section_alignment__) :
-  {
-    __bss_start__ = . ;
-    *(.bss .bss.* .gnu.linkonce.b.*)
-    *(SORT(.bss$*))
-    *(COMMON)
-    __bss_end__ = . ;
-  }
-  .edata BLOCK(__section_alignment__) : { *(.edata) }
-  .idata BLOCK(__section_alignment__) :
-  {
-    SORT(*)(.idata$2)
-    SORT(*)(.idata$3)
-    /* These zeroes mark the end of the import list.  */
-    LONG (0); LONG (0); LONG (0); LONG (0); LONG (0);
-    SORT(*)(.idata$4)
-    SORT(*)(.idata$5)
-    SORT(*)(.idata$6)
-    SORT(*)(.idata$7)
-  }
-  .CRT BLOCK(__section_alignment__) :
-  {
-    ___crt_xc_start__ = . ;
-    *(SORT(.CRT$XC*))  /* C initialization */
-    ___crt_xc_end__ = . ;
-    ___crt_xi_start__ = . ;
-    *(SORT(.CRT$XI*))  /* C++ initialization */
-    ___crt_xi_end__ = . ;
-    ___crt_xl_start__ = . ;
-    *(SORT(.CRT$XL*))  /* TLS callbacks */
-    /* ___crt_xl_end__ is defined in the TLS Directory support code */
-    PROVIDE (___crt_xl_end__ = .);
-    ___crt_xp_start__ = . ;
-    *(SORT(.CRT$XP*))  /* Pre-termination */
-    ___crt_xp_end__ = . ;
-    ___crt_xt_start__ = . ;
-    *(SORT(.CRT$XT*))  /* Termination */
-    ___crt_xt_end__ = . ;
-  }
-  .tls BLOCK(__section_alignment__) :
-  {
-    ___tls_start__ = . ;
-    *(.tls .tls.*)
-    *(.tls$)
-    *(SORT(.tls$*))
-    ___tls_end__ = . ;
-  }
-  .rsrc BLOCK(__section_alignment__) :
-  {
-    *(.rsrc)
-    *(SORT(.rsrc$*))
-  }
-  .reloc BLOCK(__section_alignment__) : { *(.reloc) }
-  .stab BLOCK(__section_alignment__) (NOLOAD) : { *(.stab) }
-  .stabstr BLOCK(__section_alignment__) (NOLOAD) : { *(.stabstr) }
-  .debug_aranges BLOCK(__section_alignment__) (NOLOAD) : { *(.debug_aranges) }
-  .debug_pubnames BLOCK(__section_alignment__) (NOLOAD) : { *(.debug_pubnames) }
-  .debug_info BLOCK(__section_alignment__) (NOLOAD) : { *(.debug_info) *(.gnu.linkonce.wi.*) }
-  .debug_abbrev BLOCK(__section_alignment__) (NOLOAD) : { *(.debug_abbrev) }
-  .debug_line BLOCK(__section_alignment__) (NOLOAD) : { *(.debug_line) }
-  .debug_frame BLOCK(__section_alignment__) (NOLOAD) : { *(.debug_frame) }
-  .debug_str BLOCK(__section_alignment__) (NOLOAD) : { *(.debug_str) }
-  .debug_loc BLOCK(__section_alignment__) (NOLOAD) : { *(.debug_loc) }
-  .debug_macinfo BLOCK(__section_alignment__) (NOLOAD) : { *(.debug_macinfo) }
-  .debug_weaknames BLOCK(__section_alignment__) (NOLOAD) : { *(.debug_weaknames) }
-  .debug_funcnames BLOCK(__section_alignment__) (NOLOAD) : { *(.debug_funcnames) }
-  .debug_typenames BLOCK(__section_alignment__) (NOLOAD) : { *(.debug_typenames) }
-  .debug_varnames BLOCK(__section_alignment__) (NOLOAD) : { *(.debug_varnames) }
-  .debug_ranges BLOCK(__section_alignment__) (NOLOAD) : { *(.debug_ranges) }
-}
diff --git a/source/main.lfm b/source/main.lfm
deleted file mode 100644
index 9cb2541..0000000
--- a/source/main.lfm
+++ /dev/null
@@ -1,351 +0,0 @@
-object FormTrackerModify: TFormTrackerModify
-  Left = 635
-  Height = 607
-  Top = 177
-  Width = 1179
-  AllowDropFiles = True
-  Caption = 'Bittorrent Tracker Editor'
-  ClientHeight = 587
-  ClientWidth = 1179
-  Constraints.MinHeight = 500
-  Constraints.MinWidth = 640
-  Font.Height = -11
-  Menu = MainMenu
-  OnCreate = FormCreate
-  OnDestroy = FormDestroy
-  OnDropFiles = FormDropFiles
-  OnShow = FormShow
-  Position = poScreenCenter
-  LCLVersion = '1.2.6.0'
-  object PageControl: TPageControl
-    Left = 0
-    Height = 587
-    Top = 0
-    Width = 1179
-    ActivePage = TabSheetTrackersList
-    Align = alClient
-    TabIndex = 0
-    TabOrder = 0
-    object TabSheetTrackersList: TTabSheet
-      Caption = 'Trackers List'
-      ClientHeight = 561
-      ClientWidth = 1171
-      object PanelTop: TPanel
-        Left = 0
-        Height = 561
-        Top = 0
-        Width = 1171
-        Align = alClient
-        ClientHeight = 561
-        ClientWidth = 1171
-        TabOrder = 0
-        object GroupBoxNewTracker: TGroupBox
-          Left = 1
-          Height = 201
-          Top = 1
-          Width = 1169
-          Align = alTop
-          Caption = 'Add trackers to torrent file(s).'
-          ClientHeight = 183
-          ClientWidth = 1165
-          Constraints.MinHeight = 100
-          TabOrder = 0
-          object MemoNewTrackers: TMemo
-            Left = 0
-            Height = 183
-            Top = 0
-            Width = 1165
-            Align = alClient
-            ScrollBars = ssAutoBoth
-            TabOrder = 0
-          end
-        end
-        object GroupBoxPresentTracker: TGroupBox
-          Left = 1
-          Height = 353
-          Top = 207
-          Width = 1169
-          Align = alClient
-          Caption = 'Present trackers in all torrent files. Select the one that you want to keep.'
-          ClientHeight = 335
-          ClientWidth = 1165
-          Constraints.MinHeight = 100
-          ParentBidiMode = False
-          TabOrder = 1
-          object CheckListBoxTrackersList: TCheckListBox
-            Left = 0
-            Height = 335
-            Top = 0
-            Width = 1165
-            Align = alClient
-            Constraints.MinHeight = 50
-            ItemHeight = 0
-            TabOrder = 0
-          end
-        end
-        object Splitter1: TSplitter
-          Cursor = crVSplit
-          Left = 1
-          Height = 5
-          Top = 202
-          Width = 1169
-          Align = alTop
-          ResizeAnchor = akTop
-        end
-      end
-    end
-    object TabSheetPublicPrivateTorrent: TTabSheet
-      Caption = 'Public/Private'
-      ClientHeight = 561
-      ClientWidth = 1171
-      object PanelTopPublicTorrent: TPanel
-        Left = 0
-        Height = 561
-        Top = 0
-        Width = 1171
-        Align = alClient
-        ClientHeight = 561
-        ClientWidth = 1171
-        TabOrder = 0
-        object GroupBoxPublicPrivateTorrent: TGroupBox
-          Left = 1
-          Height = 559
-          Top = 1
-          Width = 1169
-          Align = alClient
-          Caption = 'Checked items are public torrent.  WARNING: change public/private setting will change torrent Hash info.'
-          ClientHeight = 541
-          ClientWidth = 1165
-          TabOrder = 0
-          object CheckListBoxPublicPrivateTorrent: TCheckListBox
-            Left = 0
-            Height = 541
-            Top = 0
-            Width = 1165
-            Align = alClient
-            ItemHeight = 0
-            TabOrder = 0
-          end
-        end
-      end
-    end
-    object TabSheetTorrentData: TTabSheet
-      Caption = 'Data/Info'
-      ClientHeight = 561
-      ClientWidth = 1171
-      object StringGridTorrentData: TStringGrid
-        Left = 0
-        Height = 561
-        Top = 0
-        Width = 1171
-        Align = alClient
-        ColCount = 10
-        ColumnClickSorts = True
-        Columns = <        
-          item
-            ReadOnly = True
-            Title.Caption = 'Torrent File'
-            Width = 250
-          end        
-          item
-            ReadOnly = True
-            Title.Caption = 'Info Filename'
-            Width = 250
-          end        
-          item
-            MaxSize = 250
-            ReadOnly = True
-            Title.Caption = 'Info Hash'
-            Width = 280
-          end        
-          item
-            ReadOnly = True
-            Title.Caption = 'Created On'
-            Width = 145
-          end        
-          item
-            ReadOnly = True
-            Title.Caption = 'Created By'
-            Width = 145
-          end        
-          item
-            Title.Caption = 'Comment (can be edited)'
-            Width = 160
-          end        
-          item
-            ReadOnly = True
-            Title.Caption = 'Private'
-            Width = 50
-          end        
-          item
-            Alignment = taRightJustify
-            ReadOnly = True
-            Title.Alignment = taRightJustify
-            Title.Caption = 'Piece Length (KiB)'
-            Width = 100
-          end        
-          item
-            Alignment = taRightJustify
-            ReadOnly = True
-            Title.Alignment = taRightJustify
-            Title.Caption = 'Total size (KiB)'
-            Width = 100
-          end        
-          item
-            ReadOnly = True
-            Title.Alignment = taRightJustify
-            Title.Caption = 'IndexOrder (internal used)'
-            Visible = False
-          end>
-        FixedCols = 0
-        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goColSizing, goColMoving, goEditing, goSmoothScroll]
-        RowCount = 1
-        TabOrder = 0
-        TitleFont.Height = -11
-        ColWidths = (
-          250
-          250
-          280
-          145
-          145
-          160
-          50
-          100
-          100
-          0
-        )
-      end
-    end
-    object TabSheetTorrentsContents: TTabSheet
-      Caption = 'Files/Trackers/Info'
-      ClientHeight = 561
-      ClientWidth = 1171
-      object GroupBoxTorrentContents: TGroupBox
-        Left = 0
-        Height = 561
-        Top = 0
-        Width = 1171
-        Align = alClient
-        Caption = 'Show all the files inside the torrents'
-        ClientHeight = 543
-        ClientWidth = 1167
-        TabOrder = 0
-        object TreeViewFileContents: TTreeView
-          Left = 0
-          Height = 543
-          Top = 0
-          Width = 1167
-          Align = alClient
-          AutoExpand = True
-          DefaultItemHeight = 16
-          PopupMenu = PopupMenuTorrentFilesContent
-          ReadOnly = True
-          ShowRoot = False
-          TabOrder = 0
-          Options = [tvoAutoExpand, tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoToolTips, tvoThemedDraw]
-        end
-      end
-    end
-  end
-  object SelectDirectoryDialog1: TSelectDirectoryDialog
-    Title = 'Select a directory with torrent files inside.'
-    left = 560
-    top = 24
-  end
-  object OpenDialog: TOpenDialog
-    Filter = 'torrent|*.torrent'
-    left = 560
-    top = 88
-  end
-  object MainMenu: TMainMenu
-    left = 472
-    top = 152
-    object MenuFile: TMenuItem
-      Caption = '&File'
-      object MenuOpenTorrentFile: TMenuItem
-        Caption = 'Open &one torrent file'
-        Hint = 'Select one torrent file'
-        OnClick = MenuOpenTorrentFileClick
-      end
-      object MenuFileTorrentFolder: TMenuItem
-        Caption = 'Open &multiple torrent files inside one folder'
-        Hint = 'Open multiple torrent files in folder.'
-        OnClick = MenuFileTorrentFolderClick
-      end
-      object MenuFileOpenTrackerList: TMenuItem
-        Caption = 'Open &tracker file list'
-        OnClick = MenuFileOpenTrackerListClick
-      end
-    end
-    object MenuTrackers: TMenuItem
-      Caption = '&Trackers'
-      object MenuTrackersKeepAllTrackers: TMenuItem
-        Tag = 1
-        Caption = '&Keep all the present trackers'
-        OnClick = MenuTrackersKeepOrDeleteAllTrackersClick
-      end
-      object MenuTrackersDeleteAllTrackers: TMenuItem
-        Caption = '&Delete all the present trackers'
-        OnClick = MenuTrackersKeepOrDeleteAllTrackersClick
-      end
-      object MenuTrackersAllTorrentArePublic: TMenuItem
-        Tag = 1
-        Caption = 'All torrent are &public'
-        OnClick = MenuTrackersAllTorrentArePublicPrivateClick
-      end
-      object MenuTrackersAllTorrentArePrivate: TMenuItem
-        Caption = 'All torrent are p&rivate'
-        OnClick = MenuTrackersAllTorrentArePublicPrivateClick
-      end
-    end
-    object MenuUpdateTorrent: TMenuItem
-      Caption = '&Update torrent'
-      Hint = 'Update the torrent files'
-      OnClick = MenuUpdateTorrentClick
-    end
-    object MenuHelp: TMenuItem
-      Caption = '&Help'
-      object MenuHelpVisitWebsite: TMenuItem
-        Caption = '&Visit website'
-        OnClick = MenuHelpVisitWebsiteClick
-      end
-      object MenuHelpReportingIssue: TMenuItem
-        Caption = '&Reporting Issue'
-        OnClick = MenuHelpReportingIssueClick
-      end
-    end
-  end
-  object PopupMenuTorrentFilesContent: TPopupMenu
-    left = 632
-    top = 152
-    object MenuItemTorrentFilesTreeShowAll: TMenuItem
-      Tag = -1
-      Caption = 'Show Everything'
-      OnClick = MenuItemTorrentFilesTreeShowAllClick
-    end
-    object MenuItemTorrentFilesTreeHideAll: TMenuItem
-      Caption = 'Hide All'
-      OnClick = MenuItemTorrentFilesTreeHideAllClick
-    end
-    object MenuItemTorrentFilesTreeShowFiles: TMenuItem
-      AutoCheck = True
-      Caption = 'Show All Files'
-      Checked = True
-      OnClick = MenuItemTorrentFilesTreeShowOrHideItemClick
-    end
-    object MenuItemTorrentFilesTreeShowTrackers: TMenuItem
-      Tag = 1
-      AutoCheck = True
-      Caption = 'Show All Trackers'
-      Checked = True
-      OnClick = MenuItemTorrentFilesTreeShowOrHideItemClick
-    end
-    object MenuItemTorrentFilesTreeShowInfo: TMenuItem
-      Tag = 2
-      AutoCheck = True
-      Caption = 'Show All Info'
-      Checked = True
-      OnClick = MenuItemTorrentFilesTreeShowOrHideItemClick
-    end
-  end
-end
diff --git a/source/main.pas b/source/main.pas
deleted file mode 100644
index 518a41e..0000000
--- a/source/main.pas
+++ /dev/null
@@ -1,1470 +0,0 @@
-unit main;
-
-{
-
-
-Unicode:
-variable 'Utf8string' is the same as 'string'
-UTF8String          = type ansistring;
-All 'string' should be rename to 'UTF8String' to show the intention that we should
-use UTF8 in the program.
-}
-
-
-{$mode objfpc}{$H+}
-
-interface
-
-uses
-  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  ExtCtrls, CheckLst, DecodeTorrent, LCLType, ActnList, Menus, ComCtrls,
-  Grids, controlergridtorrentdata;
-
-type
-
-  { TFormTrackerModify }
-
-  TFormTrackerModify = class(TForm)
-    CheckListBoxPublicPrivateTorrent: TCheckListBox;
-    CheckListBoxTrackersList: TCheckListBox;
-    GroupBoxTorrentContents: TGroupBox;
-    GroupBoxPublicPrivateTorrent: TGroupBox;
-    GroupBoxNewTracker: TGroupBox;
-    GroupBoxPresentTracker: TGroupBox;
-    MainMenu: TMainMenu;
-    MemoNewTrackers: TMemo;
-    MenuFile: TMenuItem;
-    MenuFileTorrentFolder: TMenuItem;
-    MenuFileOpenTrackerList: TMenuItem;
-    MenuHelpReportingIssue: TMenuItem;
-    MenuItemTorrentFilesTreeHideAll: TMenuItem;
-    MenuItemTorrentFilesTreeShowTrackers: TMenuItem;
-    MenuItemTorrentFilesTreeShowInfo: TMenuItem;
-    MenuItemTorrentFilesTreeShowAll: TMenuItem;
-    MenuItemTorrentFilesTreeShowFiles: TMenuItem;
-    MenuTrackersAllTorrentArePrivate: TMenuItem;
-    MenuTrackersAllTorrentArePublic: TMenuItem;
-    MenuUpdateTorrent: TMenuItem;
-    MenuHelp: TMenuItem;
-    MenuHelpVisitWebsite: TMenuItem;
-    MenuTrackersDeleteAllTrackers: TMenuItem;
-    MenuTrackersKeepAllTrackers: TMenuItem;
-    MenuTrackers: TMenuItem;
-    MenuOpenTorrentFile: TMenuItem;
-    OpenDialog: TOpenDialog;
-    PageControl: TPageControl;
-    PanelTopPublicTorrent: TPanel;
-    PanelTop: TPanel;
-    PopupMenuTorrentFilesContent: TPopupMenu;
-    SelectDirectoryDialog1: TSelectDirectoryDialog;
-    Splitter1: TSplitter;
-    StringGridTorrentData: TStringGrid;
-    TabSheetTorrentsContents: TTabSheet;
-    TabSheetTorrentData: TTabSheet;
-    TabSheetTrackersList: TTabSheet;
-    TabSheetPublicPrivateTorrent: TTabSheet;
-    TreeViewFileContents: TTreeView;
-    procedure FormCreate(Sender: TObject);
-    procedure FormDestroy(Sender: TObject);
-
-    //Drag and drop '*.torrent' files/directory or 'tracker.txt'
-    procedure FormDropFiles(Sender: TObject; const FileNames: array of UTF8String);
-
-
-
-    //At start of the program the form will be show/hide
-    procedure FormShow(Sender: TObject);
-    procedure MenuFileOpenTrackerListClick(Sender: TObject);
-    procedure MenuHelpReportingIssueClick(Sender: TObject);
-    procedure MenuHelpVisitWebsiteClick(Sender: TObject);
-
-    //Popup menu in treeview show all/hide all/ individual items selection.
-    procedure MenuItemTorrentFilesTreeShowAllClick(Sender: TObject);
-    procedure MenuItemTorrentFilesTreeHideAllClick(Sender: TObject);
-    procedure MenuItemTorrentFilesTreeShowOrHideItemClick(Sender: TObject);
-
-    //Select via menu torrent file or directory
-    procedure MenuOpenTorrentFileClick(Sender: TObject);
-    procedure MenuFileTorrentFolderClick(Sender: TObject);
-
-    //Menu trackers
-    procedure MenuTrackersAllTorrentArePublicPrivateClick(Sender: TObject);
-    procedure MenuTrackersKeepOrDeleteAllTrackersClick(Sender: TObject);
-
-    //Menu update torrent
-    procedure MenuUpdateTorrentClick(Sender: TObject);
-
-  private
-    { private declarations }
-    FTrackerFinalList, //Trackers that must be put inside the torrent.
-    FTrackerAddedByUserList, //Trackers that we want too add.
-    FTrackerBanByUserList, //trackers that must not be present inside torrent.
-    FTrackerFromInsideTorrentFilesList, //Trackers that are already inside the torrent.
-    FTorrentFileNameList,// All the torrent files that must be updated
-    FLogStringList //Log string text output
-    : TStringList;
-    FDecodePresentTorrent: TDecodeTorrent; // is the present torrent file being process
-    FConcoleMode, //user have start the program in console mode
-    FFilePresentBanByUserList//There is a file 'remove_trackers.txt' detected
-    : boolean;
-    FLogFile, FTrackerFile: TextFile;
-    FTotalFileInsideTorrent: integer;
-    FTotalFileSizeInsideTorrent: int64;
-    FProcessTimeStart, FProcessTimeTotal: TDateTime;
-    FTreeNodeRoot: TTreeNode;
-    FControlerGridTorrentData: TControlerGridTorrentData;
-
-    function ByteSizeToBiggerSizeFormatStr(ByteSize: int64): string;
-
-    procedure ShowHourGlassCursor(HourGlass: boolean);
-    procedure ViewUpdateBegin(ClearView: boolean = True);
-    procedure ViewUpdateOneTorrentFileDecoded;
-    procedure ViewUpdateEnd;
-    procedure ViewUpdateFormCaption;
-    procedure ClearAllTorrentFilesNameAndTrackerInside;
-
-    procedure MenuItemTorrentFilesTreeSyncWithPopupMenu;
-    procedure SaveTrackerFinalListToFile;
-    procedure ConsoleMode;
-    procedure UpdateViewRemoveTracker;
-
-
-    procedure ReloadAllTorrentAndRefreshView;
-    function AddTorrentFileList(TorrentFileNameStringList: TStringList): boolean;
-    function ReadAddTrackerFileFromUser(const FileName: UTF8String): boolean;
-    function LoadTorrentViaDir(const Dir: UTF8String): boolean;
-    function DecodeTorrentFile(const FileName: UTF8String): boolean;
-    procedure UpdateTrackerInsideFileList;
-    procedure UpdateTorrentTrackerList;
-    procedure CombineThreeTrackerListToOne;
-    procedure ShowTrackerInsideFileList;
-
-    procedure CheckedOnOffAllTrackers(Value: boolean);
-    function CopyUserInputNewTrackersToList: boolean;
-    procedure LoadTrackersTextFileAddTrackers;
-    procedure LoadTrackersTextFileRemoveTrackers;
-    function ValidTrackerURL(const TrackerURL: UTF8String): boolean;
-  public
-    { public declarations }
-  end;
-
-var
-  FormTrackerModify: TFormTrackerModify;
-
-implementation
-
-uses LCLIntf, lazutf8;
-
-const
-  RECOMENDED_TRACKERS: array[0..2] of UTF8String =
-    (
-    'udp://tracker.openbittorrent.com:80/announce',
-    'udp://tracker.publicbt.com:80/announce',
-    'udp://tracker.istole.it:80/announce'
-    //    'udp://open.demonii.com:1337/announce'
-    );
-  //program name and version
-  FORM_CAPTION = 'Bittorrent tracker editor (1.31)';
-  TORRENT_FILES_CONTENTS_FORM_CAPTION =
-    'Show all the files inside the torrents. (Use right mouse for popup menu.)';
-
-  //'add trackers' text file must be place in the same directory as the program.
-  ADD_TRACKERS_FILE_NAME = 'add_trackers.txt';
-
-  //'remove trackers' text file must be place in the same directory as the program.
-  REMOVE_TRACKERS_FILE_NAME = 'remove_trackers.txt';
-
-  //'export trackers' text file wil be created in the same directory as the program.
-  EXPORT_TRACKERS_FILE_NAME = 'export_trackers.txt';
-
-  //'log' text file will be saved in the same directory as the program
-  // only in the console mode.
-  LOG_FILE_NAME = 'console_log.txt';
-
-{$R *.lfm}
-
-{ TFormTrackerModify }
-
-procedure TFormTrackerModify.FormCreate(Sender: TObject);
-begin
-  Caption := FORM_CAPTION;
-
-  //Create controler for StringGridTorrentData
-  FControlerGridTorrentData := TControlerGridTorrentData.Create(StringGridTorrentData);
-
-  //Log file output string List.
-  FLogStringList := TStringList.Create;
-
-  //Create filename list for all the torrent files.
-  FTorrentFileNameList := TStringList.Create;
-  FTorrentFileNameList.Duplicates := dupIgnore;
-  //Must NOT be sorted. Must in sync with CheckListBoxPublicPrivateTorrent.
-  FTorrentFileNameList.Sorted := False;
-
-  //Create ban tracker list where the user can manualy add items to it.
-  FTrackerBanByUserList := TStringList.Create;
-  FTrackerBanByUserList.Duplicates := dupIgnore;
-  FTrackerBanByUserList.Sorted := False;
-
-  //Create tracker list where the user can manualy add items to it
-  FTrackerAddedByUserList := TStringList.Create;
-  FTrackerAddedByUserList.Duplicates := dupIgnore;
-  //must be sorted. is visible to user.
-  //drag and drop tracker list will accept duplicates in memo text, if false. Need to check out why.
-  FTrackerAddedByUserList.Sorted := True;
-
-  //Create tracker list where all the trackers from all the torrent files are collected
-  FTrackerFromInsideTorrentFilesList := TStringList.Create;
-  FTrackerFromInsideTorrentFilesList.Duplicates := dupIgnore;
-  //must be sorted. is visible to user. In tracker list tab page.
-  FTrackerFromInsideTorrentFilesList.Sorted := True;
-
-  //Create tracker list that combine FTrackerFromInsideTorrentFilesList + FTrackerAddedByUserList together.
-  FTrackerFinalList := TStringList.Create;
-  FTrackerFinalList.Duplicates := dupIgnore;
-
-  //must be sorted. because we want to insert it in torrent files.
-  FTrackerFinalList.Sorted := True;
-
-
-  //Decoding class for torrent.
-  FDecodePresentTorrent := TDecodeTorrent.Create;
-
-  //start the program at mimimum visual size. (this is optional)
-  Width := Constraints.MinWidth;
-  Height := Constraints.MinHeight;
-
-  //Show the default trackers
-  LoadTrackersTextFileAddTrackers;
-
-  //Load the unwanted trackers list.
-  LoadTrackersTextFileRemoveTrackers;
-
-  //Check is program is started as console
-  ConsoleMode;
-
-  GroupBoxTorrentContents.Caption := TORRENT_FILES_CONTENTS_FORM_CAPTION;
-end;
-
-procedure TFormTrackerModify.FormDestroy(Sender: TObject);
-begin
-  //The program is being closed. Free all the memory.
-  FLogStringList.Free;
-  FTrackerFinalList.Free;
-  FDecodePresentTorrent.Free;
-  FTrackerAddedByUserList.Free;
-  FTrackerBanByUserList.Free;
-  FTrackerFromInsideTorrentFilesList.Free;
-  FTorrentFileNameList.Free;
-  FControlerGridTorrentData.Free;
-end;
-
-procedure TFormTrackerModify.MenuFileTorrentFolderClick(Sender: TObject);
-begin
-  ClearAllTorrentFilesNameAndTrackerInside;
-  ViewUpdateBegin;
-  //User what to select one torrent file. Show the user dialog file selection.
-  SelectDirectoryDialog1.InitialDir := ExtractFilePath(Application.ExeName);
-  if SelectDirectoryDialog1.Execute then
-  begin
-    ShowHourGlassCursor(True);
-    LoadTorrentViaDir(SelectDirectoryDialog1.FileName);
-    ShowHourGlassCursor(False);
-  end;
-  ViewUpdateEnd;
-end;
-
-procedure TFormTrackerModify.MenuHelpVisitWebsiteClick(Sender: TObject);
-begin
-  //There is no help file in this progam. Show user main web site.
-  OpenURL('http://code.google.com/p/bittorrent-tracker-editor');
-end;
-
-procedure TFormTrackerModify.MenuItemTorrentFilesTreeHideAllClick(Sender: TObject);
-var
-  i, CountTorrents: integer;
-begin
-  //Show only torrent file names
-
-  //user what to hide all the items.
-  //All the popup menu item must first be unchecked.
-  MenuItemTorrentFilesTreeShowInfo.Checked := False;
-  MenuItemTorrentFilesTreeShowFiles.Checked := False;
-  MenuItemTorrentFilesTreeShowTrackers.Checked := False;
-  //Update the TorrentFilesTree
-  //  MenuItemTorrentFilesTreeSyncWithPopupMenu;
-
-  if not assigned(FTreeNodeRoot) then
-    exit;
-
-  //how many torrent files are there.
-  CountTorrents := FTreeNodeRoot.Count;
-  if CountTorrents = 0 then
-    exit;
-
-  //Show the torrent files names only.
-  for i := 0 to CountTorrents - 1 do
-  begin
-    FTreeNodeRoot.Items[i].Collapse(True);
-  end;
-
-end;
-
-procedure TFormTrackerModify.MenuItemTorrentFilesTreeShowAllClick(Sender: TObject);
-begin
-  //show everything
-  if assigned(FTreeNodeRoot) then
-    FTreeNodeRoot.Expand(True);
-
-  //user what to see all the items.
-  //All the popup menu item must first be checked.
-  MenuItemTorrentFilesTreeShowInfo.Checked := True;
-  MenuItemTorrentFilesTreeShowFiles.Checked := True;
-  MenuItemTorrentFilesTreeShowTrackers.Checked := True;
-  //Update the TorrentFilesTree
-  //  MenuItemTorrentFilesTreeSyncWithPopupMenu;
-end;
-
-procedure TFormTrackerModify.MenuItemTorrentFilesTreeShowOrHideItemClick(
-  Sender: TObject);
-var
-  i, CountTorrents, itemsNr: integer;
-  ShowNode: boolean;
-begin
-  //Show or hide all the items below the torrent files.
-
-  //Get the top node.
-  if not assigned(FTreeNodeRoot) then
-    exit;
-
-  //how many torrent files are there.
-  CountTorrents := FTreeNodeRoot.Count;
-  if CountTorrents = 0 then
-    exit;
-
-  //The tag number define if it is for files, trackers or info items
-  itemsNr := TMenuItem(Sender).tag;
-  //Must show or hide the items
-  ShowNode := TMenuItem(Sender).Checked;
-  //process all the torrent files one by one.
-  for i := 0 to CountTorrents - 1 do
-  begin
-    if ShowNode then
-    begin
-      FTreeNodeRoot.Items[i].Expand(False); //Show the torrent name + child
-      FTreeNodeRoot.Items[i].Items[itemsNr].Expand(False); //expand child
-    end
-    else
-    begin
-      FTreeNodeRoot.Items[i].Items[itemsNr].Collapse(False);
-    end;
-  end;
-end;
-
-
-procedure TFormTrackerModify.MenuUpdateTorrentClick(Sender: TObject);
-var
-  Reply, BoxStyle, i, CountTrackers: integer;
-  PopUpMenuStr: string;
-
-begin
-  //Update the all the torrent files.
-
-  //The StringGridTorrentData where the comment are place by user
-  //    must be in sync again with FTorrentFileNameList.
-  //Undo all posible sort column used by the user. Sort it back to 'begin state'
-  FControlerGridTorrentData.ReorderGrid;
-
-  try
-
-    if not FConcoleMode then
-    begin
-      //Warn user before updating the torrent
-      BoxStyle := MB_ICONWARNING + MB_OKCANCEL;
-      Reply := Application.MessageBox('Warning: There is no undo.',
-        'Torrent files will be change!', BoxStyle);
-      if Reply <> idOk then
-      begin
-        ShowHourGlassCursor(True);
-        exit;
-      end;
-    end;
-
-
-    //Must have some torrent selected
-    if (FTorrentFileNameList.Count = 0) then
-    begin
-      if FConcoleMode then
-      begin
-        FLogStringList.Add('ERROR: No torrent file selected');
-      end
-      else
-      begin
-        Application.MessageBox('No torrent file selected',
-          '', MB_ICONERROR);
-      end;
-      ShowHourGlassCursor(True);
-      exit;
-    end;
-
-    //User must wait for a while.
-    ShowHourGlassCursor(True);
-
-    //Copy the tracker list inside torrent -> FTrackerFromInsideTorrentFilesList
-    UpdateTrackerInsideFileList;
-
-    //Check for error in user tracker list -> FTrackerAddedByUserList
-    if not CopyUserInputNewTrackersToList then
-      Exit;
-
-    //There are 3 list that must be combine
-    //FTrackerFinalList := FTrackerAddedByUserList + FTrackerFromInsideTorrentFilesList
-    // - FTrackerBanByUserList
-    CombineThreeTrackerListToOne;
-
-    //In console mode we can ignore this warning
-    if not FConcoleMode and (FTrackerFinalList.Count = 0) then
-    begin //Torrent without a tracker is posible. But is this what the user realy want? a DHT torrent.
-      BoxStyle := MB_ICONWARNING + MB_OKCANCEL;
-      Reply := Application.MessageBox(
-        'Warning: Create torrent file without any URL of the tracker?',
-        'There are no Trackers selected!', BoxStyle);
-      if Reply <> idOk then
-      begin
-        ShowHourGlassCursor(False);
-        exit;
-      end;
-      //Reset process timer
-      ShowHourGlassCursor(True);
-    end;
-
-    //How many trackers must be put inside each torrent file
-    CountTrackers := FTrackerFinalList.Count;
-
-    //process all the files one by one.
-    //FTorrentFileNameList is not sorted it is still in sync with CheckListBoxPublicPrivateTorrent
-    for i := 0 to FTorrentFileNameList.Count - 1 do
-    begin //read the torrent file in FDecodePresentTorrent and modify it.
-
-      //read one torrent file. If error then skip it. (continue)
-      if not FDecodePresentTorrent.DecodeTorrent(FTorrentFileNameList[i]) then
-        Continue;
-
-      case CountTrackers of
-        0://if no tracker selected then delete 'announce' and 'announce-list'
-        begin
-          FDecodePresentTorrent.RemoveAnnounce;
-          FDecodePresentTorrent.RemoveAnnounceList;
-        end;
-        1://if one tracker selected then delete 'announce-list'
-        begin
-          //Announce use the only tracker present in the FTrackerFinalList. index 0
-          FDecodePresentTorrent.ChangeAnnounce(FTrackerFinalList[0]);
-          FDecodePresentTorrent.RemoveAnnounceList;
-        end;
-        else//More than 1 trackers selected. Create 'announce-list'
-        begin
-          //Announce use the first tracker from the list. index 0
-          FDecodePresentTorrent.ChangeAnnounce(FTrackerFinalList[0]);
-          FDecodePresentTorrent.ChangeAnnounceList(FTrackerFinalList);
-        end;
-      end;
-
-
-
-      //update the torrent public/private flag
-      if CheckListBoxPublicPrivateTorrent.Checked[i] then
-      begin
-        //if private torrent then make it public torrent by removing the private flag.
-        if FDecodePresentTorrent.PrivateTorrent then
-          FDecodePresentTorrent.RemovePrivateTorrentFlag;
-      end
-      else
-      begin
-        FDecodePresentTorrent.AddPrivateTorrentFlag;
-      end;
-
-      //update the comment item
-      FDecodePresentTorrent.Comment := FControlerGridTorrentData.ReadComment(i + 1);
-
-      //save the torrent file.
-      FDecodePresentTorrent.SaveTorrent(FTorrentFileNameList[i]);
-    end;
-
-    //Create tracker.txt file
-    SaveTrackerFinalListToFile;
-
-    //Show/reload the just updated torrent files.
-    ReloadAllTorrentAndRefreshView;
-
-    //make sure cursor is default again
-  finally
-    ShowHourGlassCursor(False);
-    ViewUpdateFormCaption;
-  end;
-
-
-  if FConcoleMode then
-  begin
-    //When succesfull the log file shows, 3 lines,
-    //     OK + Count torrent files  + Count Trackers
-    FLogStringList.Add('OK');
-    FLogStringList.Add(IntToStr(FTorrentFileNameList.Count));
-    FLogStringList.Add(IntToStr(CountTrackers));
-  end
-  else
-  begin
-    //Via popup show user how many trackers are inside the torrent after update.
-    PopUpMenuStr := 'All torrent file(s) have now ' + IntToStr(CountTrackers) +
-      ' trackers.';
-    Application.MessageBox(
-      PChar(@PopUpMenuStr[1]),
-      '', MB_ICONINFORMATION + MB_OK);
-  end;
-
-end;
-
-function TFormTrackerModify.ByteSizeToBiggerSizeFormatStr(ByteSize: int64): string;
-begin
-  if ByteSize >= (1024 * 1024 * 1024) then
-    Result := Format('%0.2f GiB', [ByteSize / (1024 * 1024 * 1024)])
-  else
-  if ByteSize >= (1024 * 1024) then
-    Result := Format('%0.2f MiB', [ByteSize / (1024 * 1024)])
-  else
-  if ByteSize >= (1024) then
-    Result := Format('%0.2f KiB', [ByteSize / 1024]);
-  Result := Result + Format('  (%d Bytes)', [ByteSize]);
-
-end;
-
-
-
-procedure TFormTrackerModify.MenuItemTorrentFilesTreeSyncWithPopupMenu;
-begin
-  MenuItemTorrentFilesTreeShowOrHideItemClick(MenuItemTorrentFilesTreeShowTrackers);
-  MenuItemTorrentFilesTreeShowOrHideItemClick(MenuItemTorrentFilesTreeShowInfo);
-  MenuItemTorrentFilesTreeShowOrHideItemClick(MenuItemTorrentFilesTreeShowFiles);
-end;
-
-
-procedure TFormTrackerModify.SaveTrackerFinalListToFile;
-var
-  TrackerStr: UTF8String;
-begin
-  //Create the tracker text file. The old one will be overwritten
-  AssignFile(FTrackerFile, ExtractFilePath(Application.ExeName) +
-    EXPORT_TRACKERS_FILE_NAME);
-  ReWrite(FTrackerFile);
-  for TrackerStr in FTrackerFinalList do
-  begin
-    WriteLn(FTrackerFile, TrackerStr);
-
-    //Must create an empty line betwean trackers.
-    //Every tracker must be a seperate tracker group.
-    //This is what the user probably want.
-    //The file content can then be copy/pasted to uTorrent etc.
-    WriteLn(FTrackerFile, '');
-  end;
-  CloseFile(FTrackerFile);
-end;
-
-procedure TFormTrackerModify.ConsoleMode;
-var
-  FileNameOrDirStr: UTF8String;
-  StringList: TStringList;
-begin
-  //if program is started with one parameter then in must be stated console mode.
-  //This parameter is path to file or dir.
-
-  //update the torrent via console mode if there is a parameter detected.
-  if ParamCount > 0 then
-  begin
-    FConcoleMode := True;
-
-    //Create the log file. The old one will be overwritten
-    AssignFile(FLogFile, ExtractFilePath(Application.ExeName) + LOG_FILE_NAME);
-    ReWrite(FLogFile);
-
-    //Get the first parameter.
-    FileNameOrDirStr := UTF8Trim(ParamStr(1));
-
-    //If FLogStringList empty then there is no error.
-    if FLogStringList.Text = '' then
-    begin
-      //There is no error. Proceed with reading the torrent files
-
-      if ExtractFileExt(FileNameOrDirStr) = '' then
-      begin //There is no file extention. It must be a folder.
-        if LoadTorrentViaDir(FileNameOrDirStr) then
-        begin
-          //Show all the tracker inside the torrent files.
-          ShowTrackerInsideFileList;
-          //Mark all trackers as selected
-          CheckedOnOffAllTrackers(True);
-          //Some tracker must be removed. Console and windows mode.
-          UpdateViewRemoveTracker;
-          //update torrent
-          MenuUpdateTorrentClick(self);
-        end;
-      end
-      else //a torrent file is selected?
-      begin
-        if ExtractFileExt(FileNameOrDirStr) = '.torrent' then
-        begin
-          StringList := TStringList.Create;
-          try
-            //Convert Filenames to stringlist format.
-            StringList.Add(FileNameOrDirStr);
-            AddTorrentFileList(StringList);
-
-            //Show all the tracker inside the torrent files.
-            ShowTrackerInsideFileList;
-            //Mark all trackers as selected
-            CheckedOnOffAllTrackers(True);
-            //Some tracker must be removed. Console and windows mode.
-            UpdateViewRemoveTracker;
-            //update torrent
-            MenuUpdateTorrentClick(self);
-          finally
-            StringList.Free;
-          end;
-        end
-        else
-        begin //Error. this is not a torrent file
-          FLogStringList.Add('ERROR: No torrent file selected.');
-        end;
-      end;
-    end;
-
-    //Write to log file. And close the file.
-    WriteLn(FLogFile, FLogStringList.Text);
-    CloseFile(FLogFile);
-
-    //Shutdown the console program
-    Application.terminate;
-  end
-  else
-  begin //the program
-    FConcoleMode := False;
-  end;
-
-end;
-
-
-procedure TFormTrackerModify.UpdateViewRemoveTracker;
-var
-  TrackerStr: UTF8String;
-  i: integer;
-begin
-  {
-    Called when user load the torrent files.
-    Trackers that are forbidden must be uncheck.
-    Trackers add by user in the memo text filed must also be removed.
-    This routine is also use in the console mode to remove trackers
-  }
-
-  //If file remove_trackers.txt is present but empty then remove all tracker inside torrent.
-  if FFilePresentBanByUserList and (UTF8Trim(FTrackerBanByUserList.Text) = '') then
-  begin
-    CheckedOnOffAllTrackers(False);
-  end;
-
-
-  //reload the memo. This will sanitize the MemoNewTrackers.Lines.
-  if not CopyUserInputNewTrackersToList then
-    exit;
-
-  //remove all the trackers that are ban.
-  MemoNewTrackers.Lines.BeginUpdate;
-  for TrackerStr in FTrackerBanByUserList do
-  begin
-
-    //uncheck tracker that are listed in FTrackerBanByUserList
-    i := CheckListBoxTrackersList.Items.IndexOf(UTF8Trim(TrackerStr));
-    if i >= 0 then //Found it.
-    begin
-      CheckListBoxTrackersList.Checked[i] := False;
-    end;
-
-    //remove tracker from user memo text that are listed in FTrackerBanByUserList
-    //Find TrackerStr in MemoNewTrackers.Lines and remove it.
-    i := MemoNewTrackers.Lines.IndexOf(UTF8Trim(TrackerStr));
-    if i >= 0 then //Found it.
-    begin
-      MemoNewTrackers.Lines.Delete(i);
-    end;
-  end;
-  MemoNewTrackers.Lines.EndUpdate;
-
-  //reload the memo again.
-  CopyUserInputNewTrackersToList;
-
-end;
-
-
-
-
-function TFormTrackerModify.DecodeTorrentFile(const FileName: UTF8String): boolean;
-begin
-  //Called when user add torrent files
-  //False if something is wrong with decoding torrent.
-  Result := FDecodePresentTorrent.DecodeTorrent(FileName);
-  ViewUpdateOneTorrentFileDecoded;
-end;
-
-procedure TFormTrackerModify.UpdateTorrentTrackerList;
-var
-  TrackerStr: UTF8String;
-begin
-  //Copy the trackers found in one torrent file to FTrackerFromInsideTorrentFilesList
-  for TrackerStr in FDecodePresentTorrent.TrackerList do
-    FTrackerFromInsideTorrentFilesList.Add(TrackerStr);
-end;
-
-procedure TFormTrackerModify.ShowTrackerInsideFileList;
-var
-  TrackerStr: UTF8String;
-begin
-  //Called after torrent is being loaded.
-
-  CheckListBoxTrackersList.Items.BeginUpdate;
-  //remove the previeus list
-  CheckListBoxTrackersList.Clear;
-  //Add new items to the list.
-  for TrackerStr in FTrackerFromInsideTorrentFilesList do
-  begin
-    CheckListBoxTrackersList.Items.Add(TrackerStr);
-  end;
-  CheckListBoxTrackersList.Items.EndUpdate;
-end;
-
-
-procedure TFormTrackerModify.CheckedOnOffAllTrackers(Value: boolean);
-var
-  i: integer;
-begin
-  //Set all the trackers checkbox ON or OFF
-  with CheckListBoxTrackersList do
-    if Count > 0 then
-      for i := 0 to Count - 1 do
-        Checked[i] := Value;
-end;
-
-function TFormTrackerModify.ValidTrackerURL(const TrackerURL: UTF8String): boolean;
-begin
-  //TrackerURL should be cleanup with UTF8trim()
-  Result := (Pos('http://', TrackerURL) = 1) or (Pos('udp://', TrackerURL) = 1);
-end;
-
-function TFormTrackerModify.CopyUserInputNewTrackersToList: boolean;
-var
-  TrackerStr: UTF8String;
-begin
-  {
-   Called after 'update torrent' is selected.
-   All the user entery from Memo text field will be add to FTrackerAddedByUserList.
-  }
-  FTrackerAddedByUserList.Clear;
-
-  for TrackerStr in MemoNewTrackers.Lines do
-  begin
-    TrackerStr := UTF8trim(TrackerStr);
-
-    //Skip empty line
-    if TrackerStr = '' then
-      continue;
-
-    //All the tracker must begin with 'http://' or 'udp://'
-    if ValidTrackerURL(TrackerStr) then
-    begin
-      FTrackerAddedByUserList.Add(TrackerStr);
-    end
-    else
-    begin
-      //There is error. Show the error and do not continue.
-      if FConcoleMode then
-      begin
-        FLogStringList.Add('ERROR: Tracker URL must begin with http:// or udp://');
-      end
-      else
-      begin
-        //Show error
-        Application.MessageBox(PChar(@TrackerStr[1]),
-          'Error: Tracker URL must begin with http:// or udp://', MB_ICONERROR);
-      end;
-      //dot not continue with error.
-      Result := False;
-      exit;
-    end;
-
-  end;
-
-  Result := True; //no error
-
-  //Show the torrent list we have just created.
-  MemoNewTrackers.Text := FTrackerAddedByUserList.Text;
-
-end;
-
-
-
-
-procedure TFormTrackerModify.CombineThreeTrackerListToOne;
-var
-  TrackerStr: UTF8String;
-  i: integer;
-begin
-  // FTrackerFinalList = (FTrackerAddedByUserList + FTrackerFromInsideTorrentFilesList)
-  //   - FTrackerBanByUserList
-  FTrackerFinalList.Clear;
-
-  for TrackerStr in FTrackerAddedByUserList do
-    FTrackerFinalList.Add(TrackerStr);
-
-  for TrackerStr in FTrackerFromInsideTorrentFilesList do
-    FTrackerFinalList.Add(TrackerStr);
-
-  //Remove the trackers must be the last step.
-  for TrackerStr in FTrackerBanByUserList do
-  begin
-    //Find the tracker and remove it from the list.
-    //FTrackerBanByUserList is not UTF8Trim() before. Must use with UTF8Trim()
-    i := FTrackerFinalList.IndexOf(UTF8Trim(TrackerStr));
-    if i >= 0 then
-      FTrackerFinalList.Delete(i);
-  end;
-end;
-
-
-procedure TFormTrackerModify.UpdateTrackerInsideFileList;
-var
-  i: integer;
-begin
-  //Copy items from CheckListBoxTrackersList to FTrackerFromInsideTorrentFilesList
-  FTrackerFromInsideTorrentFilesList.Clear;
-  with CheckListBoxTrackersList do
-    if Count > 0 then
-      for i := 0 to Count - 1 do
-        if Checked[i] then
-          FTrackerFromInsideTorrentFilesList.add(Items[i]);
-end;
-
-procedure TFormTrackerModify.LoadTrackersTextFileAddTrackers;
-var
-  i: integer;
-begin
-  //Called at the start of the program. Load a trackers list from file
-
-  //if no file is found the use the default tracker list.
-  if not ReadAddTrackerFileFromUser(ExtractFilePath(Application.ExeName) +
-    ADD_TRACKERS_FILE_NAME) then
-  begin
-    MemoNewTrackers.Lines.BeginUpdate;
-    for i := low(RECOMENDED_TRACKERS) to high(RECOMENDED_TRACKERS) do
-    begin
-      MemoNewTrackers.Lines.Add(RECOMENDED_TRACKERS[i]);
-    end;
-    MemoNewTrackers.Lines.EndUpdate;
-  end;
-
-  //Check for error in tracker list
-  if not CopyUserInputNewTrackersToList then
-  begin
-    MemoNewTrackers.Lines.Clear;
-  end;
-end;
-
-procedure TFormTrackerModify.LoadTrackersTextFileRemoveTrackers;
-var
-  filename: UTF8String;
-begin
-  filename := ExtractFilePath(Application.ExeName) + REMOVE_TRACKERS_FILE_NAME;
-  try
-    FFilePresentBanByUserList := FileExistsUTF8(fileName);
-    if FFilePresentBanByUserList then
-    begin
-      FTrackerBanByUserList.LoadFromFile(fileName);
-    end;
-  except
-    FFilePresentBanByUserList := False;
-  end;
-end;
-
-
-procedure TFormTrackerModify.MenuOpenTorrentFileClick(Sender: TObject);
-var
-  StringList: TStringList;
-begin
-  ClearAllTorrentFilesNameAndTrackerInside;
-  ViewUpdateBegin;
-
-  //User what to select a torrent file. Show the user dialog.
-  OpenDialog.Title := 'Select a torrent file';
-  OpenDialog.Filter := 'torrent|*.torrent';
-  if OpenDialog.Execute then
-  begin
-    ShowHourGlassCursor(True);
-    StringList := TStringList.Create;
-    try
-      StringList.Add(UTF8Trim(OpenDialog.FileName));
-      AddTorrentFileList(StringList);
-    finally
-      StringList.Free;
-      ShowHourGlassCursor(False);
-    end;
-  end;
-  ViewUpdateEnd;
-
-end;
-
-procedure TFormTrackerModify.MenuTrackersAllTorrentArePublicPrivateClick(
-  Sender: TObject);
-var
-  i: integer;
-begin
-  //Warn user about torrent Hash.
-  if Application.MessageBox(
-    'Warning: Changing the public/private torrent flag will change the info hash.',
-    'Are you sure!', MB_ICONWARNING + MB_OKCANCEL) <> idOk then
-    exit;
-
-  //Set all the trackers publick/private checkbox ON or OFF
-  with CheckListBoxPublicPrivateTorrent do
-    if Count > 0 then
-      for i := 0 to Count - 1 do
-        Checked[i] := TMenuItem(Sender).Tag = 1;
-end;
-
-
-procedure TFormTrackerModify.MenuFileOpenTrackerListClick(Sender: TObject);
-begin
-  //Clear the present list
-  MemoNewTrackers.Lines.Clear;
-  //User what to select a tracker file. Show the user dialog.
-
-  OpenDialog.Title := 'Select a tracker list file';
-  OpenDialog.Filter := 'tracker text file|*.txt';
-  if OpenDialog.Execute then
-  begin
-    ReadAddTrackerFileFromUser(OpenDialog.FileName);
-  end;
-end;
-
-procedure TFormTrackerModify.MenuHelpReportingIssueClick(Sender: TObject);
-begin
-  OpenURL('http://code.google.com/p/bittorrent-tracker-editor/issues');
-end;
-
-
-function TFormTrackerModify.ReadAddTrackerFileFromUser(
-  const FileName: UTF8String): boolean;
-var
-  TrackerFileList: TStringList;
-begin
-  //read the file and show it to the user.
-  TrackerFileList := TStringList.Create;
-  try
-    TrackerFileList.LoadFromFile(FileName);
-    MemoNewTrackers.Text := UTF8Trim(TrackerFileList.Text);
-    Result := True;
-  except
-    Result := False;
-    //suppres all error in reading the file.
-  end;
-  TrackerFileList.Free;
-
-  // It can be simpler, but does this suport UTF8?
-  //  MemoNewTrackers.Lines.LoadFromFile(FileName);
-end;
-
-procedure TFormTrackerModify.MenuTrackersKeepOrDeleteAllTrackersClick(Sender: TObject);
-begin
-  CheckedOnOffAllTrackers(TMenuItem(Sender).Tag = 1);
-end;
-
-
-function TFormTrackerModify.LoadTorrentViaDir(const Dir: UTF8String): boolean;
-var
-  Info: TSearchRec;
-  TorrentFilesNameStringList: TStringList;
-begin
-  //place all the torrent file name in TorrentFilesNameStringList
-  TorrentFilesNameStringList := TStringList.Create;
-  try
-    if FindFirstUTF8(dir + PathDelim + '*.torrent', faAnyFile, Info) = 0 then
-    begin
-      //Read all the torrent files inside this dir.
-      repeat
-        TorrentFilesNameStringList.Add(UTF8Trim(dir + PathDelim + Info.Name));
-      until FindNextUTF8(info) <> 0;
-    end;
-    FindCloseUTF8(Info);
-
-    //add the torrent file name to AddTorrentFileList()
-    Result := AddTorrentFileList(TorrentFilesNameStringList);
-
-  finally
-    //Free all the list we temporary created.
-    TorrentFilesNameStringList.Free;
-  end;
-end;
-
-
-procedure TFormTrackerModify.FormDropFiles(Sender: TObject;
-  const FileNames: array of UTF8String);
-var
-  Count: integer;
-  TorrentFileNameStringList, //for the torrent files
-  TrackerFileNameStringList //for the trackers files
-  : TStringList;
-  TorrentFileSelectionDetected, ViewUpdateBeginActiveOneTimeOnly
-  //ViewUpdateBegin must be called one time. Keep track of it.
-  : boolean;
-  FileNameOrDirStr: UTF8String;
-begin
-  //Drag and drop a folder or files?
-
-  //Change cursor
-  ShowHourGlassCursor(True);
-
-  // Always clear the previeus torrent files selection.
-  // keep track if torrent file is detected in drag/drop
-  // need this to call ClearAllTorrentFilesNameAndTrackerInside()
-  //    this will clear the previeuse torrent loaded.
-  TorrentFileSelectionDetected := False;
-
-
-
-
-  ViewUpdateBeginActiveOneTimeOnly := False;
-
-  //Remember every file names from drag and drop.
-  //It can be mix *.torrent + trackers.txt files
-  TorrentFileNameStringList := TStringList.Create;
-  TrackerFileNameStringList := TStringList.Create;
-
-  try
-
-    //process all the files and/or directory that is drop by user.
-    for Count := low(FileNames) to High(FileNames) do
-    begin
-      FileNameOrDirStr := UTF8Trim(FileNames[Count]);
-
-
-      //if '.torrent' then add to TorrentFileNameStringList
-      if ExtractFileExt(FileNameOrDirStr) = '.torrent' then
-      begin
-
-        //if first time a torrent detected then ClearAllTorrentFilesNameAndTrackerInside
-        if not TorrentFileSelectionDetected then
-        begin
-          TorrentFileSelectionDetected := True;
-          ClearAllTorrentFilesNameAndTrackerInside;
-        end;
-
-        TorrentFileNameStringList.Add(FileNameOrDirStr);
-      end;
-
-      //if '.txt' then it must be a tracker list.
-      if ExtractFileExt(FileNameOrDirStr) = '.txt' then
-      begin
-        try
-          TrackerFileNameStringList.LoadFromFile(FileNameOrDirStr);
-          MemoNewTrackers.Append(UTF8Trim(TrackerFileNameStringList.Text));
-        except
-          //supress any error in loading the file
-        end;
-      end;
-
-      //if there is no file extention. It must be a torrent folder.
-      if ExtractFileExt(FileNameOrDirStr) = '' then
-      begin
-
-        //if first time a torrent detected then ClearAllTorrentFilesNameAndTrackerInside
-        if not TorrentFileSelectionDetected then
-        begin
-          TorrentFileSelectionDetected := True;
-          ClearAllTorrentFilesNameAndTrackerInside;
-        end;
-
-        if not ViewUpdateBeginActiveOneTimeOnly then
-        begin
-          ViewUpdateBeginActiveOneTimeOnly := True;
-          ViewUpdateBegin;
-        end;
-
-        LoadTorrentViaDir(FileNameOrDirStr);
-
-      end;
-
-    end;//for
-
-
-    //Check for error in tracker list
-    if not CopyUserInputNewTrackersToList then
-    begin //When error clear tracker list.
-      MemoNewTrackers.Lines.Clear;
-    end;
-
-    //the torrent files we have collected here must be add to AddTorrentFileList()
-    if TorrentFileNameStringList.Count > 0 then
-    begin
-
-      if not ViewUpdateBeginActiveOneTimeOnly then
-      begin
-        ViewUpdateBeginActiveOneTimeOnly := True;
-        ViewUpdateBegin;
-      end;
-
-      AddTorrentFileList(TorrentFileNameStringList);
-
-    end;
-
-  finally
-    //Free all the list we temporary created.
-    TorrentFileNameStringList.Free;
-    TrackerFileNameStringList.Free;
-    ShowHourGlassCursor(False);
-  end;
-
-
-
-
-  //if ViewUpdateBegin is called then ViewUpdateEnd must also be called.
-  if ViewUpdateBeginActiveOneTimeOnly then
-    ViewUpdateEnd;
-
-end;
-
-procedure TFormTrackerModify.FormShow(Sender: TObject);
-begin
-  //In console mode do not show the program.
-  if FConcoleMode then
-    Visible := False;
-end;
-
-
-function TFormTrackerModify.AddTorrentFileList(TorrentFileNameStringList:
-  TStringList): boolean;
-  //This called from 'add folder' or 'drag and drop'
-var
-  Count: integer;
-  TorrentFileNameStr: UTF8String;
-begin
-{ Every torrent file must be decoded for the tracker list inside.
-  This torrent tracker list is add to FTrackerFromInsideTorrentFilesList.
-  All the torrent files name are added to FTorrentFileNameList.
-
-  Called when user do drag and drop, File open torrent file/dir
-}
-  if TorrentFileNameStringList.Count > 0 then
-  begin
-    for Count := 0 to TorrentFileNameStringList.Count - 1 do
-    begin
-      //process one torrent file name for each loop.
-      TorrentFileNameStr := TorrentFileNameStringList[Count];
-
-      if DecodeTorrentFile(TorrentFileNameStr) then
-      begin
-        //This torrent have announce list(trackers) decoded.
-        //Now add all this torrent trackers to the 'general' list of trackers.
-        UpdateTorrentTrackerList;
-        //Add this torrent file to the 'general' list of torrent file names
-        FTorrentFileNameList.Add(TorrentFileNameStr);
-      end
-      else
-      begin
-        //Someting is wrong. Can not decode torrent tracker item.
-        //Cancel everything.
-        FTorrentFileNameList.Clear;
-        FTrackerFromInsideTorrentFilesList.Clear;
-        if FConcoleMode then
-        begin
-          FLogStringList.Add('Error: Can not read torrent. ' + TorrentFileNameStr);
-        end
-        else
-        begin
-          Application.MessageBox(PChar(@TorrentFileNameStr[1]),
-            'Error: Can not read torrent.', MB_ICONERROR);
-        end;
-        Result := False;
-        exit;
-      end;
-    end;
-  end;
-  Result := True;
-end;
-
-
-procedure TFormTrackerModify.ReloadAllTorrentAndRefreshView;
-var
-  TorrentFileStr: UTF8String;
-begin
-{
-  This is called after updating the torrent.
-  We want to re-read the all torrent files.
-  And show that everything is updated and OK
-}
-
-  ViewUpdateBegin;
-  //Copy all the trackers in inside the torrent files to FTrackerFromInsideTorrentFilesList
-  FTrackerFromInsideTorrentFilesList.Clear;
-  for TorrentFileStr in FTorrentFileNameList do
-  begin
-    if DecodeTorrentFile(TorrentFileStr) then
-    begin
-      UpdateTorrentTrackerList;
-    end;
-  end;
-
-  //refresh the view
-  ViewUpdateEnd;
-
-end;
-
-procedure TFormTrackerModify.ClearAllTorrentFilesNameAndTrackerInside;
-begin
-  FTorrentFileNameList.Clear;
-  FTrackerFromInsideTorrentFilesList.Clear;
-  //  Caption := FORM_CAPTION;
-  //  ShowTorrentFilesAfterBeingLoaded;
-end;
-
-
-procedure TFormTrackerModify.ViewUpdateBegin(ClearView: boolean);
-begin
-  //Called before loading torrent file.
-  FTotalFileInsideTorrent := 0;
-  FTotalFileSizeInsideTorrent := 0;
-
-  //Do not show being updating till finish updating data.
-  StringGridTorrentData.BeginUpdate;
-  TreeViewFileContents.BeginUpdate;
-  CheckListBoxPublicPrivateTorrent.Items.BeginUpdate;
-
-  if ClearView then
-  begin
-    //Clear all the user data 'View' elements. This will be filled with new data.
-    TreeViewFileContents.Items.Clear;
-    CheckListBoxPublicPrivateTorrent.Clear; //Use in update torrent!
-    StringGridTorrentData.Clear;
-    FControlerGridTorrentData.ClearAllImageIndex;
-    //RowCount is 0 after Clear. But must be 1 to make it work.
-    StringGridTorrentData.RowCount := 1;
-  end;
-
-  //root is 'Torrent Files'
-  FTreeNodeRoot := TreeViewFileContents.Items.Add(nil, 'Torrent Files');
-
-end;
-
-procedure TFormTrackerModify.ViewUpdateOneTorrentFileDecoded;
-var
-  RowIndex, CountFiles: integer;
-  TorrentFileNameStr, TrackerStr, DateTimeStr, PrivateStr: UTF8String;
-  TreeNodeTorrent, TreeNodeFiles, TreeNodeTrackers, TreeNodeInfo: TTreeNode;
-begin
-  //Called after loading torrent file.
-
-
-  TorrentFileNameStr := ExtractFileName(FDecodePresentTorrent.FilenameTorrent);
-
-  //---------------------   Add it to the checklist box Public/private torrent
-  RowIndex := CheckListBoxPublicPrivateTorrent.Items.Add(TorrentFileNameStr);
-  //Check it for public/private flag
-  CheckListBoxPublicPrivateTorrent.Checked[RowIndex] :=
-    not FDecodePresentTorrent.PrivateTorrent;
-
-
-  //---------------------  Fill the Grid Torrent Data/Info
-
-  //date time in iso format
-  if FDecodePresentTorrent.CreatedDate <> 0 then
-    DateTimeToString(DateTimeStr, 'yyyy-MM-dd hh:nn:ss',
-      FDecodePresentTorrent.CreatedDate)
-  else //some torrent does not have CreatedDate
-    DateTimeStr := '';
-
-  //private or public torrent
-  if FDecodePresentTorrent.PrivateTorrent then
-    PrivateStr := 'yes'
-  else
-    PrivateStr := 'no';
-
-  //Copy all the torrent info to the grid column.
-  FControlerGridTorrentData.TorrentFile := TorrentFileNameStr;
-  FControlerGridTorrentData.InfoFileName := FDecodePresentTorrent.Name;
-  FControlerGridTorrentData.InfoHash := FDecodePresentTorrent.InfoHash;
-  FControlerGridTorrentData.CreatedOn := DateTimeStr;
-  FControlerGridTorrentData.CreatedBy := FDecodePresentTorrent.CreatedBy;
-  FControlerGridTorrentData.Comment := FDecodePresentTorrent.Comment;
-  FControlerGridTorrentData.PrivateTorrent := PrivateStr;
-  FControlerGridTorrentData.PieceLength :=
-    format('%6d', [FDecodePresentTorrent.PieceLenght div 1024]); //Show as KiBytes
-  FControlerGridTorrentData.TotaSize :=
-    format('%9d', [FDecodePresentTorrent.TotalFileSize div 1024]); //Show as KiBytes
-  FControlerGridTorrentData.IndexOrder :=
-    format('%6d', [StringGridTorrentData.RowCount - 1]);
-  //Must keep track of order when sorted back
-
-  //All the string data are filed. Copy it now to the grid
-  FControlerGridTorrentData.AppendRow;
-
-  //---------------------  Fill the treeview with torrent files
-
-  //Add the torrent file name + size of all the files combined.
-  TorrentFileNameStr := TorrentFileNameStr + '     SIZE: ' +
-    ByteSizeToBiggerSizeFormatStr(FDecodePresentTorrent.TotalFileSize);
-
-
-
-  TreeNodeTorrent := TreeViewFileContents.Items.AddChild(FTreeNodeRoot,
-    //FTorrentFileNameList[RowIndex]); //With directory path
-    TorrentFileNameStr);  //Without directory  path
-
-  TreeNodeFiles := TreeViewFileContents.Items.AddChild(TreeNodeTorrent, 'Files');
-  TreeNodeTrackers := TreeViewFileContents.Items.AddChild(TreeNodeTorrent,
-    'Trackers');
-  TreeNodeInfo := TreeViewFileContents.Items.AddChild(TreeNodeTorrent, 'Info');
-
-  //Show all the files inside the torrent
-  if FDecodePresentTorrent.InfoFilesCount > 0 then
-  begin
-    for CountFiles := 0 to FDecodePresentTorrent.InfoFilesCount - 1 do
-    begin
-      TreeViewFileContents.Items.AddChild(TreeNodeFiles,
-        FDecodePresentTorrent.InfoFilesNameIndex(CountFiles) +
-        '     SIZE: ' + ByteSizeToBiggerSizeFormatStr(
-        FDecodePresentTorrent.InfoFilesLengthIndex(CountFiles)));
-    end;
-  end;
-
-  //Show a how many files are there
-  TreeNodeFiles.Text := TreeNodeFiles.Text + ' (' + IntToStr(TreeNodeFiles.Count) + ')';
-
-
-  //Show all the trackers inside the torrent
-  for TrackerStr in FDecodePresentTorrent.TrackerList do
-  begin
-    TreeViewFileContents.Items.AddChild(TreeNodeTrackers, TrackerStr);
-  end;
-
-  //Show a how many trackers are there
-  TreeNodeTrackers.Text := TreeNodeTrackers.Text + ' (' +
-    IntToStr(TreeNodeTrackers.Count) + ')';
-
-
-  //Show all the info of torrent
-  TreeViewFileContents.Items.AddChild(TreeNodeInfo, 'Name: ' +
-    FDecodePresentTorrent.Name);
-  TreeViewFileContents.Items.AddChild(TreeNodeInfo, 'Comment: ' +
-    FDecodePresentTorrent.Comment);
-  TreeViewFileContents.Items.AddChild(TreeNodeInfo, 'Info Hash: ' +
-    FDecodePresentTorrent.InfoHash);
-  TreeViewFileContents.Items.AddChild(TreeNodeInfo, 'Created On: ' + DateTimeStr);
-  TreeViewFileContents.Items.AddChild(TreeNodeInfo, 'Created By: ' +
-    FDecodePresentTorrent.CreatedBy);
-  TreeViewFileContents.Items.AddChild(TreeNodeInfo, 'Piece Lenght: ' +
-    IntToStr(FDecodePresentTorrent.PieceLenght div 1024) + ' KiB');
-  if FDecodePresentTorrent.PrivateTorrent then
-  begin
-    TreeViewFileContents.Items.AddChild(TreeNodeInfo, 'Private: yes');
-  end
-  else
-  begin
-    TreeViewFileContents.Items.AddChild(TreeNodeInfo, 'Private: no');
-  end;
-
-
-  //All the files count inside the torrent must be added to FTotalFileInsideTorrent
-  Inc(FTotalFileInsideTorrent, FDecodePresentTorrent.InfoFilesCount);
-
-  //The file size of all files inside the torrent must be added to FTotalFileSizeInsideTorrent
-  Inc(FTotalFileSizeInsideTorrent, FDecodePresentTorrent.TotalFileSize);
-
-end;
-
-
-
-procedure TFormTrackerModify.ViewUpdateEnd;
-begin
-
-  //Called after loading torrent file
-  //Sync the popup menu with show/hide items.
-  MenuItemTorrentFilesTreeSyncWithPopupMenu;
-
-
-  //Show what we have updated.
-  TreeViewFileContents.EndUpdate;
-  StringGridTorrentData.EndUpdate;
-  CheckListBoxPublicPrivateTorrent.Items.EndUpdate;
-
-
-  //Show the size of all the files inside the torrent
-  //http://en.wikipedia.org/wiki/Gigabyte
-  GroupBoxTorrentContents.Caption :=
-    TORRENT_FILES_CONTENTS_FORM_CAPTION + ' (Files count: ' +
-    IntToStr(FTotalFileInsideTorrent) + ') Files sizes: ' +
-    ByteSizeToBiggerSizeFormatStr(FTotalFileSizeInsideTorrent) + '';
-
-
-  GroupBoxPresentTracker.Caption :=
-    'Present trackers in all torrent files.' +
-    ' Select the one that you want to keep. (List count: ' +
-    IntToStr(FTrackerFromInsideTorrentFilesList.Count) + ' )';
-
-
-
-  //Show all the tracker inside the torrent files.
-  ShowTrackerInsideFileList;
-  //Mark all trackers as selected
-  CheckedOnOffAllTrackers(True);
-  //Some tracker must be removed. Console and windows mode.
-  UpdateViewRemoveTracker;
-
-
-  //Show user how many files are loaded
-  ViewUpdateFormCaption;
-
-end;
-
-procedure TFormTrackerModify.ViewUpdateFormCaption;
-//var
-  //ProcessTimeStr: string;
-//  Hour, Minute, Second, MilliSecond: word;
-begin
-  //Called when user load the torrent + update the torrent.
-
-{ //for performance debugging.
-  DecodeTime(FProcessTimeTotal, Hour, Minute, Second, MilliSecond);
-  ProcessTimeStr := IntToStr((Second * 1000) + MilliSecond) + ' mSec';
-}
-
-  //Show user how many files are loaded
-  Caption := FORM_CAPTION + '( Torrent files: ' +
-    IntToStr(FTorrentFileNameList.Count) + ' )';
-  //  + ' (Process Time: ' +  ProcessTimeStr + ' )'; //for debug purpose.
-end;
-
-procedure TFormTrackerModify.ShowHourGlassCursor(HourGlass: boolean);
-begin
-  if HourGlass then
-  begin
-    screen.Cursor := crHourGlass;
-    FProcessTimeStart := now;
-  end
-  else
-  begin
-    screen.Cursor := crDefault;
-    FProcessTimeTotal := now - FProcessTimeStart;
-  end;
-
-
-
-
-end;
-
-
-
-end.
diff --git a/source/ppas.bat b/source/ppas.bat
deleted file mode 100644
index a02c47b..0000000
--- a/source/ppas.bat
+++ /dev/null
@@ -1,14 +0,0 @@
-@echo off
-SET THEFILE=trackereditor.exe
-echo Linking %THEFILE%
-C:\lazarus\fpc\2.6.2\bin\i386-win32\ld.exe -b pei-i386 -m i386pe  --gc-sections  -s --subsystem windows --entry=_WinMainCRTStartup    -o trackereditor.exe link.res
-if errorlevel 1 goto linkend
-C:\lazarus\fpc\2.6.2\bin\i386-win32\postw32.exe --subsystem gui --input trackereditor.exe --stack 16777216
-if errorlevel 1 goto linkend
-goto end
-:asmend
-echo An error occured while assembling %THEFILE%
-goto end
-:linkend
-echo An error occured while linking %THEFILE%
-:end
diff --git a/source/project/.gitignore b/source/project/.gitignore
new file mode 100644
index 0000000..9f09d1d
--- /dev/null
+++ b/source/project/.gitignore
@@ -0,0 +1,6 @@
+# ignore link resource file
+link.res
+
+# ignore windows bat file
+*.bat
+
diff --git a/source/trackereditor.ico b/source/project/tracker_editor/trackereditor.ico
similarity index 100%
rename from source/trackereditor.ico
rename to source/project/tracker_editor/trackereditor.ico
diff --git a/source/project/tracker_editor/trackereditor.lpi b/source/project/tracker_editor/trackereditor.lpi
new file mode 100644
index 0000000..9b49c62
--- /dev/null
+++ b/source/project/tracker_editor/trackereditor.lpi
@@ -0,0 +1,227 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<CONFIG>
+  <ProjectOptions>
+    <Version Value="12"/>
+    <PathDelim Value="\"/>
+    <General>
+      <Flags>
+        <SaveJumpHistory Value="False"/>
+        <CompatibilityMode Value="True"/>
+      </Flags>
+      <SessionStorage Value="None"/>
+      <Title Value="trackereditor"/>
+      <ResourceType Value="res"/>
+      <UseXPManifest Value="True"/>
+      <Icon Value="0"/>
+    </General>
+    <i18n>
+      <EnableI18N LFM="False"/>
+    </i18n>
+    <BuildModes Count="3">
+      <Item1 Name="Default" Default="True"/>
+      <Item2 Name="Debug">
+        <CompilerOptions>
+          <Version Value="11"/>
+          <PathDelim Value="\"/>
+          <Target>
+            <Filename Value="..\..\..\enduser\trackereditor"/>
+          </Target>
+          <SearchPaths>
+            <IncludeFiles Value="$(ProjOutDir)"/>
+            <OtherUnitFiles Value="..\..\code;..\..\..\submodule\dcpcrypt\Hashes;..\..\..\submodule\dcpcrypt"/>
+            <UnitOutputDirectory Value="..\..\..\lib\trackereditor\$(TargetCPU)-$(TargetOS)"/>
+          </SearchPaths>
+          <Parsing>
+            <SyntaxOptions>
+              <IncludeAssertionCode Value="True"/>
+            </SyntaxOptions>
+          </Parsing>
+          <CodeGeneration>
+            <Checks>
+              <IOChecks Value="True"/>
+              <RangeChecks Value="True"/>
+              <OverflowChecks Value="True"/>
+              <StackChecks Value="True"/>
+            </Checks>
+            <VerifyObjMethodCallValidity Value="True"/>
+          </CodeGeneration>
+          <Linking>
+            <Debugging>
+              <DebugInfoType Value="dsDwarf2Set"/>
+              <TrashVariables Value="True"/>
+              <UseValgrind Value="True"/>
+              <UseExternalDbgSyms Value="True"/>
+            </Debugging>
+            <Options>
+              <Win32>
+                <GraphicApplication Value="True"/>
+              </Win32>
+            </Options>
+          </Linking>
+        </CompilerOptions>
+      </Item2>
+      <Item3 Name="Release">
+        <CompilerOptions>
+          <Version Value="11"/>
+          <PathDelim Value="\"/>
+          <Target>
+            <Filename Value="..\..\..\enduser\trackereditor"/>
+          </Target>
+          <SearchPaths>
+            <IncludeFiles Value="$(ProjOutDir)"/>
+            <OtherUnitFiles Value="..\..\code;..\..\..\submodule\dcpcrypt\Hashes;..\..\..\submodule\dcpcrypt"/>
+            <UnitOutputDirectory Value="..\..\..\lib\trackereditor\$(TargetCPU)-$(TargetOS)"/>
+          </SearchPaths>
+          <Conditionals Value="If TargetOS = &apos;darwin&apos; then
+begin
+  If TargetCPU = &apos;aarch64&apos; then
+  begin
+    CustomOptions += &apos;-WM10.15&apos;;
+  end
+  else
+  begin
+    CustomOptions += &apos;-WM10.14&apos;;
+  end;
+end;"/>
+          <CodeGeneration>
+            <SmartLinkUnit Value="True"/>
+            <Optimizations>
+              <OptimizationLevel Value="3"/>
+            </Optimizations>
+          </CodeGeneration>
+          <Linking>
+            <Debugging>
+              <GenerateDebugInfo Value="False"/>
+            </Debugging>
+            <LinkSmart Value="True"/>
+            <Options>
+              <Win32>
+                <GraphicApplication Value="True"/>
+              </Win32>
+            </Options>
+          </Linking>
+        </CompilerOptions>
+      </Item3>
+    </BuildModes>
+    <PublishOptions>
+      <Version Value="2"/>
+    </PublishOptions>
+    <RunParams>
+      <FormatVersion Value="2"/>
+      <Modes Count="1">
+        <Mode0 Name="default"/>
+      </Modes>
+    </RunParams>
+    <RequiredPackages Count="1">
+      <Item1>
+        <PackageName Value="LCL"/>
+      </Item1>
+    </RequiredPackages>
+    <Units Count="14">
+      <Unit0>
+        <Filename Value="trackereditor.lpr"/>
+        <IsPartOfProject Value="True"/>
+      </Unit0>
+      <Unit1>
+        <Filename Value="..\..\code\bencode.pas"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="BEncode"/>
+      </Unit1>
+      <Unit2>
+        <Filename Value="..\..\code\controlergridtorrentdata.pas"/>
+        <IsPartOfProject Value="True"/>
+      </Unit2>
+      <Unit3>
+        <Filename Value="..\..\code\decodetorrent.pas"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="DecodeTorrent"/>
+      </Unit3>
+      <Unit4>
+        <Filename Value="..\..\code\main.pas"/>
+        <IsPartOfProject Value="True"/>
+        <ComponentName Value="FormTrackerModify"/>
+        <HasResources Value="True"/>
+        <ResourceBaseClass Value="Form"/>
+      </Unit4>
+      <Unit5>
+        <Filename Value="..\..\code\torrent_miscellaneous.pas"/>
+        <IsPartOfProject Value="True"/>
+      </Unit5>
+      <Unit6>
+        <Filename Value="..\..\code\controler_trackerlist_online.pas"/>
+        <IsPartOfProject Value="True"/>
+      </Unit6>
+      <Unit7>
+        <Filename Value="..\..\code\trackerlist_online.pas"/>
+        <IsPartOfProject Value="True"/>
+      </Unit7>
+      <Unit8>
+        <Filename Value="..\..\code\newtrackon.pas"/>
+        <IsPartOfProject Value="True"/>
+      </Unit8>
+      <Unit9>
+        <Filename Value="..\..\code\controler_treeview_torrent_data.pas"/>
+        <IsPartOfProject Value="True"/>
+      </Unit9>
+      <Unit10>
+        <Filename Value="..\..\code\ngosang_trackerslist.pas"/>
+        <IsPartOfProject Value="True"/>
+      </Unit10>
+      <Unit11>
+        <Filename Value="..\..\..\submodule\dcpcrypt\Hashes\dcpsha256.pas"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="DCPsha256"/>
+      </Unit11>
+      <Unit12>
+        <Filename Value="..\..\..\submodule\dcpcrypt\dcpconst.pas"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="DCPconst"/>
+      </Unit12>
+      <Unit13>
+        <Filename Value="..\..\..\submodule\dcpcrypt\dcpcrypt2.pas"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="DCPcrypt2"/>
+      </Unit13>
+    </Units>
+  </ProjectOptions>
+  <CompilerOptions>
+    <Version Value="11"/>
+    <PathDelim Value="\"/>
+    <Target>
+      <Filename Value="..\..\..\enduser\trackereditor"/>
+    </Target>
+    <SearchPaths>
+      <IncludeFiles Value="$(ProjOutDir)"/>
+      <OtherUnitFiles Value="..\..\code;..\..\..\submodule\dcpcrypt\Hashes;..\..\..\submodule\dcpcrypt"/>
+      <UnitOutputDirectory Value="..\..\..\lib\trackereditor\$(TargetCPU)-$(TargetOS)"/>
+    </SearchPaths>
+    <CodeGeneration>
+      <SmartLinkUnit Value="True"/>
+    </CodeGeneration>
+    <Linking>
+      <Debugging>
+        <DebugInfoType Value="dsDwarf3"/>
+        <StripSymbols Value="True"/>
+      </Debugging>
+      <LinkSmart Value="True"/>
+      <Options>
+        <Win32>
+          <GraphicApplication Value="True"/>
+        </Win32>
+      </Options>
+    </Linking>
+  </CompilerOptions>
+  <Debugging>
+    <Exceptions Count="3">
+      <Item1>
+        <Name Value="EAbort"/>
+      </Item1>
+      <Item2>
+        <Name Value="ECodetoolError"/>
+      </Item2>
+      <Item3>
+        <Name Value="EFOpenError"/>
+      </Item3>
+    </Exceptions>
+  </Debugging>
+</CONFIG>
diff --git a/source/trackereditor.lpr b/source/project/tracker_editor/trackereditor.lpr
similarity index 64%
rename from source/trackereditor.lpr
rename to source/project/tracker_editor/trackereditor.lpr
index d4a2242..4b3a3e1 100644
--- a/source/trackereditor.lpr
+++ b/source/project/tracker_editor/trackereditor.lpr
@@ -7,7 +7,9 @@
   cthreads,
   {$ENDIF}{$ENDIF}
   Interfaces, // this includes the LCL widgetset
-  Forms, main, bencode, decodetorrent, controlergridtorrentdata;
+  Forms, DCPsha256, DCPconst, DCPcrypt2, main, bencode, decodetorrent,
+  controlergridtorrentdata, controler_trackerlist_online, trackerlist_online,
+  controler_treeview_torrent_data;
 
 {$R *.res}
 
diff --git a/source/trackereditor.res b/source/project/tracker_editor/trackereditor.res
similarity index 99%
rename from source/trackereditor.res
rename to source/project/tracker_editor/trackereditor.res
index 7c6cf3e..5565379 100644
Binary files a/source/trackereditor.res and b/source/project/tracker_editor/trackereditor.res differ
diff --git a/source/project/unit_test/tracker_editor_test.lpi b/source/project/unit_test/tracker_editor_test.lpi
new file mode 100644
index 0000000..ed4628d
--- /dev/null
+++ b/source/project/unit_test/tracker_editor_test.lpi
@@ -0,0 +1,176 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<CONFIG>
+  <ProjectOptions>
+    <Version Value="12"/>
+    <PathDelim Value="\"/>
+    <General>
+      <Flags>
+        <MainUnitHasCreateFormStatements Value="False"/>
+        <MainUnitHasTitleStatement Value="False"/>
+        <MainUnitHasScaledStatement Value="False"/>
+        <CompatibilityMode Value="True"/>
+      </Flags>
+      <SessionStorage Value="None"/>
+      <Title Value="tracker_editor_test"/>
+      <UseAppBundle Value="False"/>
+      <ResourceType Value="res"/>
+    </General>
+    <i18n>
+      <EnableI18N LFM="False"/>
+    </i18n>
+    <BuildModes Count="3">
+      <Item1 Name="Default" Default="True"/>
+      <Item2 Name="Debug">
+        <CompilerOptions>
+          <Version Value="11"/>
+          <PathDelim Value="\"/>
+          <Target>
+            <Filename Value="..\..\..\enduser\test_trackereditor"/>
+          </Target>
+          <SearchPaths>
+            <IncludeFiles Value="$(ProjOutDir)"/>
+            <OtherUnitFiles Value="..\..\test;..\..\code"/>
+            <UnitOutputDirectory Value="..\..\..\lib\test_trackereditor\$(TargetCPU)-$(TargetOS)"/>
+          </SearchPaths>
+          <Parsing>
+            <SyntaxOptions>
+              <IncludeAssertionCode Value="True"/>
+            </SyntaxOptions>
+          </Parsing>
+          <CodeGeneration>
+            <Checks>
+              <IOChecks Value="True"/>
+              <RangeChecks Value="True"/>
+              <OverflowChecks Value="True"/>
+              <StackChecks Value="True"/>
+            </Checks>
+            <VerifyObjMethodCallValidity Value="True"/>
+          </CodeGeneration>
+          <Linking>
+            <Debugging>
+              <DebugInfoType Value="dsDwarf2Set"/>
+              <TrashVariables Value="True"/>
+              <UseValgrind Value="True"/>
+              <UseExternalDbgSyms Value="True"/>
+            </Debugging>
+          </Linking>
+        </CompilerOptions>
+      </Item2>
+      <Item3 Name="Release">
+        <CompilerOptions>
+          <Version Value="11"/>
+          <PathDelim Value="\"/>
+          <Target>
+            <Filename Value="..\..\..\enduser\test_trackereditor"/>
+          </Target>
+          <SearchPaths>
+            <IncludeFiles Value="$(ProjOutDir)"/>
+            <OtherUnitFiles Value="..\..\test;..\..\code"/>
+            <UnitOutputDirectory Value="..\..\..\lib\test_trackereditor\$(TargetCPU)-$(TargetOS)"/>
+          </SearchPaths>
+          <CodeGeneration>
+            <SmartLinkUnit Value="True"/>
+            <Optimizations>
+              <OptimizationLevel Value="3"/>
+            </Optimizations>
+          </CodeGeneration>
+          <Linking>
+            <Debugging>
+              <GenerateDebugInfo Value="False"/>
+            </Debugging>
+            <LinkSmart Value="True"/>
+          </Linking>
+        </CompilerOptions>
+      </Item3>
+    </BuildModes>
+    <PublishOptions>
+      <Version Value="2"/>
+    </PublishOptions>
+    <RunParams>
+      <local>
+        <CommandLineParams Value="-a --format=plain"/>
+      </local>
+      <FormatVersion Value="2"/>
+      <Modes Count="1">
+        <Mode0 Name="default">
+          <local>
+            <CommandLineParams Value="-a --format=plain"/>
+          </local>
+        </Mode0>
+      </Modes>
+    </RunParams>
+    <RequiredPackages Count="2">
+      <Item1>
+        <PackageName Value="LazUtils"/>
+      </Item1>
+      <Item2>
+        <PackageName Value="FCL"/>
+      </Item2>
+    </RequiredPackages>
+    <Units Count="8">
+      <Unit0>
+        <Filename Value="tracker_editor_test.lpr"/>
+        <IsPartOfProject Value="True"/>
+      </Unit0>
+      <Unit1>
+        <Filename Value="..\..\test\test_newtrackon.pas"/>
+        <IsPartOfProject Value="True"/>
+      </Unit1>
+      <Unit2>
+        <Filename Value="..\..\code\newtrackon.pas"/>
+        <IsPartOfProject Value="True"/>
+      </Unit2>
+      <Unit3>
+        <Filename Value="..\..\test\test_start_up_parameter.pas"/>
+        <IsPartOfProject Value="True"/>
+      </Unit3>
+      <Unit4>
+        <Filename Value="..\..\code\torrent_miscellaneous.pas"/>
+        <IsPartOfProject Value="True"/>
+      </Unit4>
+      <Unit5>
+        <Filename Value="..\..\test\test_miscellaneous.pas"/>
+        <IsPartOfProject Value="True"/>
+      </Unit5>
+      <Unit6>
+        <Filename Value="..\..\code\ngosang_trackerslist.pas"/>
+        <IsPartOfProject Value="True"/>
+      </Unit6>
+      <Unit7>
+        <Filename Value="..\..\test\test_ngosang_trackers_list.pas"/>
+        <IsPartOfProject Value="True"/>
+      </Unit7>
+    </Units>
+  </ProjectOptions>
+  <CompilerOptions>
+    <Version Value="11"/>
+    <PathDelim Value="\"/>
+    <Target>
+      <Filename Value="..\..\..\enduser\test_trackereditor"/>
+    </Target>
+    <SearchPaths>
+      <IncludeFiles Value="$(ProjOutDir)"/>
+      <OtherUnitFiles Value="..\..\test;..\..\code"/>
+      <UnitOutputDirectory Value="..\..\..\lib\test_trackereditor\$(TargetCPU)-$(TargetOS)"/>
+    </SearchPaths>
+    <Linking>
+      <Debugging>
+        <DebugInfoType Value="dsDwarf3"/>
+        <UseLineInfoUnit Value="False"/>
+      </Debugging>
+    </Linking>
+  </CompilerOptions>
+  <Debugging>
+    <Exceptions Count="3">
+      <Item1>
+        <Name Value="EAbort"/>
+      </Item1>
+      <Item2>
+        <Name Value="ECodetoolError"/>
+      </Item2>
+      <Item3>
+        <Name Value="EFOpenError"/>
+      </Item3>
+    </Exceptions>
+  </Debugging>
+</CONFIG>
diff --git a/source/project/unit_test/tracker_editor_test.lpr b/source/project/unit_test/tracker_editor_test.lpr
new file mode 100644
index 0000000..5dc2c9f
--- /dev/null
+++ b/source/project/unit_test/tracker_editor_test.lpr
@@ -0,0 +1,57 @@
+program tracker_editor_test;
+
+{$mode objfpc}{$H+}
+
+uses
+  Classes, consoletestrunner,  fpcunit,
+  fpcunitreport, test_newtrackon, test_ngosang_trackers_list, test_start_up_parameter,
+torrent_miscellaneous, test_miscellaneous, ngosang_trackerslist;
+
+type
+
+  { TLazTestRunner }
+
+  { TMyTestRunner }
+
+  TMyTestRunner = class(TTestRunner)
+  protected
+  // override the protected methods of TTestRunner to customize its behavior
+    procedure DoTestRun(ATest: TTest); override;
+  end;
+
+var
+  Application: TMyTestRunner;
+
+{ TMyTestRunner }
+
+procedure TMyTestRunner.DoTestRun(ATest: TTest);
+var
+  ResultsWriter: TCustomResultsWriter;
+  TestResult: TTestResult;
+begin
+  ResultsWriter := GetResultsWriter;
+  ResultsWriter.Filename := FileName;
+  TestResult := TTestResult.Create;
+  try
+    TestResult.AddListener(ResultsWriter);
+    ATest.Run(TestResult);
+    ResultsWriter.WriteResult(TestResult);
+
+    //if something failed then exit with error: 1
+    if (TestResult.NumberOfErrors > 0) or (TestResult.NumberOfFailures > 0) then
+    begin
+      System.ExitCode := 1;
+    end;
+
+  finally
+    TestResult.Free;
+    ResultsWriter.Free;
+  end;
+end;
+
+begin
+  Application := TMyTestRunner.Create(nil);
+  Application.Initialize;
+  Application.Run;
+  Application.Free;
+end.
diff --git a/source/test/test_miscellaneous.pas b/source/test/test_miscellaneous.pas
new file mode 100644
index 0000000..2d9548d
--- /dev/null
+++ b/source/test/test_miscellaneous.pas
@@ -0,0 +1,626 @@
+// SPDX-License-Identifier: MIT
+unit test_miscellaneous;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, torrent_miscellaneous;
+
+type
+  TStartupParameter = record
+    TrackerListOrder: TTrackerListOrder;
+    SkipAnnounceCheck: boolean;
+    SourcePresent: boolean;
+    SourceText: UTF8String;
+  end;
+
+
+  TVerifyTrackerResult = record
+    StartupParameter: TStartupParameter;
+
+    TrackerOriginal,
+    TrackerAdded,
+    TrackerRemoved,
+    TrackerEndResult: TStringList;
+
+    ErrorString: string;
+  end;
+
+
+function LoadConsoleLog(const FileNameWithPath: string; out StatusOK: boolean;
+  out TorrentFilesCount: integer; out TrackersCount: integer): boolean;
+
+function GetProjectRootFolderWithPathDelimiter: string;
+
+function VerifyTrackerResult(var VerifyTracker: TVerifyTrackerResult): boolean;
+
+procedure RemoveLineSeperation(TrackerList: TStringList);
+
+implementation
+
+type
+  TTrackerFoundInList = (tf_NotFound, tf_Increamental, tf_Skip);
+
+
+function GetProjectRootFolderWithPathDelimiter: string;
+begin
+  //the present folder is /enduser where the executable file is run
+  Result := ExtractFilePath(ParamStr(0));
+  Result := ExcludeTrailingBackslash(Result);
+  Result := ExtractFilePath(Result);
+end;
+
+function FindTracker(const Tracker: string; TrackerEndResult: TStringList;
+  var OldIndex, NewIndex: integer): TTrackerFoundInList;
+begin
+  NewIndex := TrackerEndResult.IndexOf(tracker);
+
+  if NewIndex < 0 then
+  begin
+    Result := tf_NotFound;
+  end
+  else
+  begin
+    if (NewIndex = OldIndex + 1) then
+      Result := tf_Increamental
+    else
+      Result := tf_Skip;
+  end;
+end;
+
+procedure FindTrackerList(ListToBeFound, SearchInlist, TrackerRemoved: TStringList;
+  out FirstIndex, LastIndex, ItemsFound: integer;
+  out TrackerFoundInList: TTrackerFoundInList);
+var
+  trackerToBeFoundStr: string;
+  IndexFound: integer;
+  OldIndex: integer;
+
+begin
+  //All ListToBeFound should be present in SearchInlist except when present in TrackerRemoved
+
+  //FirstIndex, LastIndex give information if the list is place in begin or end of the list.
+
+  //ItemsFound -> how many of the ListToBeFound are present in the list.
+  //           this is not realy helpfull because the items can be removed via TrackerRemoved
+
+  //TrackerFoundInList
+  //                  tf_NotFound -> if this items is also not present in TrackerRemoved
+  //                              This is a error condition
+  //                  tf_Increamental this is when ListToBeFound is intact
+  //                  tf_Skip          this is when ListToBeFound is NOT intact
+
+  //start with not found index range
+  FirstIndex := -1;
+  LastIndex := -1;
+  OldIndex := -1;
+
+  //start with no items found
+  ItemsFound := 0;
+
+  //start with not found status
+  TrackerFoundInList := tf_NotFound;
+
+
+  //look for each string one by one
+  for trackerToBeFoundStr in ListToBeFound do
+  begin
+    IndexFound := SearchInlist.IndexOf(trackerToBeFoundStr);
+
+    //It is found or not?
+    if IndexFound < 0 then
+    begin
+      //not found, maybe it is in the TrackerRemoved?
+      if TrackerRemoved.IndexOf(trackerToBeFoundStr) < 0 then
+      begin
+        //not found in TrackerRemoved. This is an error.
+        TrackerFoundInList := tf_NotFound;
+        exit;
+      end;
+      //data is found in TrackerRemoved
+      //do the next item in the loop
+      //nothing to do when there is no data is found
+    end
+    else
+    begin
+      //new data is found
+
+      //data is found so increase ItemsFound
+      Inc(ItemsFound);
+
+      //keep updating LastIndex where data is found
+      LastIndex := IndexFound;
+
+      //update first index only one time in this for loop.
+      if FirstIndex < 0 then
+      begin
+        FirstIndex := IndexFound;
+
+        //Start with tf_Increamental. Will be change to tf_Skip if needed.
+        TrackerFoundInList := tf_Increamental;
+      end
+      else
+      begin
+        //comprare if this is one step index increase with one items or more.
+        if (IndexFound = OldIndex + 1) then
+        begin
+          //Must not be able to go from tf_Skip -> tf_Increamental
+          if TrackerFoundInList <> tf_Skip then
+            TrackerFoundInList := tf_Increamental;
+        end
+        else
+          TrackerFoundInList := tf_Skip;
+      end;
+
+      //keep updating the previeus index
+      OldIndex := IndexFound;
+    end;
+
+  end;//for loop
+
+end;
+
+procedure RemoveLineSeperation(TrackerList: TStringList);
+var
+  i: integer;
+begin
+  if TrackerList.Count = 0 then
+    exit;
+
+  //remove all the empty lines
+  for i := TrackerList.Count - 1 downto 0 do
+  begin
+    if Trim(TrackerList[i]) = '' then
+      TrackerList.Delete(i);
+  end;
+end;
+
+procedure CreateCopyTVerifyTrackerResult(
+  const VerifyTrackerResult_Original: TVerifyTrackerResult;
+  out VerifyTrackerResult_copy: TVerifyTrackerResult);
+begin
+  //create working copy
+  VerifyTrackerResult_copy.TrackerAdded := TStringList.Create;
+  VerifyTrackerResult_copy.TrackerEndResult := TStringList.Create;
+  VerifyTrackerResult_copy.TrackerOriginal := TStringList.Create;
+  VerifyTrackerResult_copy.TrackerRemoved := TStringList.Create;
+
+  //copy original to copyed version
+  VerifyTrackerResult_copy.TrackerAdded.Assign(
+    VerifyTrackerResult_Original.TrackerAdded);
+  VerifyTrackerResult_copy.TrackerEndResult.Assign(
+    VerifyTrackerResult_Original.TrackerEndResult);
+  VerifyTrackerResult_copy.TrackerOriginal.Assign(
+    VerifyTrackerResult_Original.TrackerOriginal);
+  VerifyTrackerResult_copy.TrackerRemoved.Assign(
+    VerifyTrackerResult_Original.TrackerRemoved);
+
+  //remove empty lines
+  RemoveLineSeperation(VerifyTrackerResult_copy.TrackerAdded);
+  RemoveLineSeperation(VerifyTrackerResult_copy.TrackerEndResult);
+  RemoveLineSeperation(VerifyTrackerResult_copy.TrackerOriginal);
+  RemoveLineSeperation(VerifyTrackerResult_copy.TrackerRemoved);
+end;
+
+procedure FreeTVerifyTrackerResult(var VerifyTrackerResult: TVerifyTrackerResult);
+begin
+  VerifyTrackerResult.TrackerAdded.Free;
+  VerifyTrackerResult.TrackerEndResult.Free;
+  VerifyTrackerResult.TrackerOriginal.Free;
+  VerifyTrackerResult.TrackerRemoved.Free;
+end;
+
+function CheckIfEverythingIsCompleat(var VerifyTracker: TVerifyTrackerResult): boolean;
+var
+  FirstIndex, LastIndex, ItemsFound: integer;
+  TrackerFoundInList: TTrackerFoundInList;
+  VerifyTrackerResult_copy: TVerifyTrackerResult;
+
+  procedure ListToBeFound(list: TStringList);
+  begin
+    FindTrackerList(list,
+      VerifyTrackerResult_copy.TrackerEndResult,
+      VerifyTrackerResult_copy.TrackerRemoved, FirstIndex, LastIndex,
+      ItemsFound, TrackerFoundInList);
+  end;
+
+begin
+  //This is for 'sort' and 'random' list URL order.
+  //Only need to check if nothing is missing
+
+  CreateCopyTVerifyTrackerResult(VerifyTracker, VerifyTrackerResult_copy);
+
+  try
+    //check if TrackerAdded is present in the end result
+    ListToBeFound(VerifyTrackerResult_copy.TrackerAdded);
+    if TrackerFoundInList = tf_NotFound then
+    begin
+      Result := False;
+      VerifyTracker.ErrorString := 'Error: TrackerAdded trackers are missing';
+      exit;
+    end;
+
+    //check if TrackerOriginal is present in the end result
+    ListToBeFound(VerifyTrackerResult_copy.TrackerOriginal);
+    if TrackerFoundInList = tf_NotFound then
+    begin
+      Result := False;
+      VerifyTracker.ErrorString := 'Error: TrackerAdded trackers are missing';
+      exit;
+    end;
+
+    //no error found;
+    Result := True;
+
+  finally
+    //free all the memory
+    FreeTVerifyTrackerResult(VerifyTrackerResult_copy);
+  end;
+
+end;
+
+function CheckIfStillIntack(var VerifyTracker: TVerifyTrackerResult;
+  atBegin_TrackerAdded, MustBeIntact_TrackerAdded: boolean): boolean;
+var
+  FirstIndex, LastIndex, ItemsFound: integer;
+  TrackerFoundInList: TTrackerFoundInList;
+  VerifyTrackerResult_copy: TVerifyTrackerResult;
+
+  procedure ListToBeFound(list: TStringList);
+  begin
+    FindTrackerList(list,
+      VerifyTrackerResult_copy.TrackerEndResult,
+      VerifyTrackerResult_copy.TrackerRemoved, FirstIndex, LastIndex,
+      ItemsFound, TrackerFoundInList);
+  end;
+
+begin
+  //the TrackerAdded can be place 'at the begin' or 'at the end' of the end result list.
+  //the TrackerAdded can be intack or not, if not intact then it must also present some where in the TrackerEndResult
+  //    except when it is present in the TrackerRemoved
+
+  CreateCopyTVerifyTrackerResult(VerifyTracker, VerifyTrackerResult_copy);
+
+  try
+    //Must find 'the added' and 'the original' in the endresult
+
+    if atBegin_TrackerAdded then
+    begin
+
+      if MustBeIntact_TrackerAdded then
+      begin
+        //check for TrackerAdded, should be place at begin
+        ListToBeFound(VerifyTrackerResult_copy.TrackerAdded);
+        Result := FirstIndex = 0;
+        if not Result then
+        begin
+          VerifyTracker.ErrorString := 'Error: TrackerAdded should be place at begin';
+          exit;
+        end;
+      end
+      else
+      begin
+        //Problem here. if NOT intact then all the URL can be place every where.
+        //There is no check if this is correct or not
+
+        //The only valid check will be done later if the original tracker is place at the correct place.
+        ListToBeFound(VerifyTrackerResult_copy.TrackerAdded);
+
+        //do nothing here
+      end;
+
+      if TrackerFoundInList = tf_NotFound then
+      begin
+        Result := False;
+        VerifyTracker.ErrorString := 'Error: TrackerAdded trackers are missing';
+        exit;
+      end;
+
+      if MustBeIntact_TrackerAdded then
+      begin
+        Result := TrackerFoundInList = tf_Increamental;
+        if not Result then
+        begin
+          VerifyTracker.ErrorString := 'Error: TrackerAdded trackers are not intact';
+          exit;
+        end;
+      end;
+
+
+      //check for TrackerOriginal, should be place at end
+      ListToBeFound(VerifyTrackerResult_copy.TrackerOriginal);
+      Result := LastIndex = VerifyTrackerResult_copy.TrackerEndResult.Count - 1;
+      if not Result then
+      begin
+        VerifyTracker.ErrorString := 'Error: TrackerOriginal should be place at end';
+        exit;
+      end;
+
+      if TrackerFoundInList = tf_NotFound then
+      begin
+        Result := False;
+        VerifyTracker.ErrorString := 'Error: TrackerOriginal trackers are missing';
+        exit;
+      end;
+
+    end
+    else
+    begin
+      //place at end
+      //check for TrackerOriginal, should be place at begin
+      ListToBeFound(VerifyTrackerResult_copy.TrackerOriginal);
+      Result := FirstIndex = 0;
+      if not Result then
+      begin
+        VerifyTracker.ErrorString := 'Error: TrackerOriginal should be place at begin';
+        exit;
+      end;
+
+      if TrackerFoundInList = tf_NotFound then
+      begin
+        Result := False;
+        VerifyTracker.ErrorString := 'Error: TrackerOriginal trackers are missing';
+        exit;
+      end;
+
+      //check for TrackerAdded, should be place at end
+      ListToBeFound(VerifyTrackerResult_copy.TrackerAdded);
+      Result := LastIndex = VerifyTrackerResult_copy.TrackerEndResult.Count - 1;
+      if not Result then
+      begin
+        VerifyTracker.ErrorString := 'Error: TrackerAdded should be place at end';
+        exit;
+      end;
+
+      if MustBeIntact_TrackerAdded then
+      begin
+        Result := TrackerFoundInList = tf_Increamental;
+        if not Result then
+        begin
+          VerifyTracker.ErrorString := 'Error: TrackerAdded trackers are not intact';
+          exit;
+        end;
+      end;
+
+      if TrackerFoundInList = tf_NotFound then
+      begin
+        Result := False;
+        VerifyTracker.ErrorString := 'Error: TrackerAdded trackers are missing';
+        exit;
+      end;
+
+    end;
+
+
+  finally
+    //free all the memory
+    FreeTVerifyTrackerResult(VerifyTrackerResult_copy);
+  end;
+
+end;
+
+function CheckValidURL_EndResult(var VerifyTracker: TVerifyTrackerResult): boolean;
+var
+  tracker_URL: string;
+
+  function IsValid(const str: string): boolean;
+  var
+    i: integer;
+  begin
+    for i := low(VALID_TRACKERS_URL) to high(VALID_TRACKERS_URL) do
+    begin
+      //compare the string
+      if (Pos(VALID_TRACKERS_URL[i], str) = 1) then
+      begin
+        //found correct URL
+        Result := True;
+        exit;
+      end;
+    end;
+    VerifyTracker.ErrorString := 'Can not validate URL: ' + str;
+    Result := False;
+  end;
+
+begin
+  for tracker_URL in VerifyTracker.TrackerEndResult do
+  begin
+    //skip empty line
+    if tracker_URL = '' then
+      Continue;
+
+    if not IsValid(tracker_URL) then
+    begin
+      Result := False;
+      exit;
+    end;
+  end;
+  Result := True;
+end;
+
+function CheckIfRemoveIsNotPresent(var VerifyTracker: TVerifyTrackerResult): boolean;
+var
+  tracker_URL: string;
+begin
+  //scan the TrackerEndResult for trackers present in TrackerRemoved
+  for tracker_URL in VerifyTracker.TrackerRemoved do
+  begin
+    //it should not be present in TrackerEndResult
+    if VerifyTracker.TrackerEndResult.IndexOf(tracker_URL) >= 0 then
+    begin
+      Result := False;
+      VerifyTracker.ErrorString :=
+        'This tracker URL should not be present: ' + tracker_URL;
+    end;
+  end;
+  Result := True;
+end;
+
+function VerifyTrackerResult(var VerifyTracker: TVerifyTrackerResult): boolean;
+var
+  atBegin_TrackerAdded, MustBeIntact_TrackerAdded: boolean;
+begin
+
+  //Check if URL is valid
+  Result := CheckValidURL_EndResult(VerifyTracker);
+  if not Result then
+  begin
+    exit;
+  end;
+
+  //There should not be any removed trackers items.
+  Result := CheckIfRemoveIsNotPresent(VerifyTracker);
+  if not Result then
+  begin
+    exit;
+  end;
+
+  //Must verify if the output is what we expected
+  case VerifyTracker.StartupParameter.TrackerListOrder of
+    // Console parameter: -U0
+    // Insert new trackers list BEFORE, the original trackers list inside the torrent file.
+    // And remove possible duplicated trackers from the ORIGINAL trackers list.
+    tloInsertNewBeforeAndKeepNewIntact:
+    begin
+      atBegin_TrackerAdded := True;
+      MustBeIntact_TrackerAdded := True;
+      Result := CheckIfStillIntack(VerifyTracker, atBegin_TrackerAdded,
+        MustBeIntact_TrackerAdded);
+
+    end;
+
+    // Console parameter: -U1
+    // Insert new trackers list BEFORE, the original trackers list inside the torrent file.
+    // And remove possible duplicated trackers from the NEW trackers list.
+    tloInsertNewBeforeAndKeepOriginalIntact:
+    begin
+      atBegin_TrackerAdded := True;
+      MustBeIntact_TrackerAdded := False;
+      Result := CheckIfStillIntack(VerifyTracker, atBegin_TrackerAdded,
+        MustBeIntact_TrackerAdded);
+
+    end;
+
+    // Console parameter: -U2
+    // Append new trackers list AFTER, the original trackers list inside the torrent file.
+    // And remove possible duplicated trackers from the ORIGINAL trackers list.
+    tloAppendNewAfterAndKeepNewIntact:
+    begin
+      atBegin_TrackerAdded := False;
+      MustBeIntact_TrackerAdded := True;
+      Result := CheckIfStillIntack(VerifyTracker, atBegin_TrackerAdded,
+        MustBeIntact_TrackerAdded);
+
+    end;
+
+    // Console parameter: -U3
+    // Append new trackers list AFTER, the original trackers list inside the torrent file.
+    // And remove possible duplicated trackers from the NEW trackers list.
+    tloAppendNewAfterAndKeepOriginalIntact:
+    begin
+      atBegin_TrackerAdded := False;
+      MustBeIntact_TrackerAdded := False;
+      Result := CheckIfStillIntack(VerifyTracker, atBegin_TrackerAdded,
+        MustBeIntact_TrackerAdded);
+
+    end;
+
+    // Console parameter: -U4
+    // Sort the trackers list by name.
+    tloSort:
+    begin
+      //Must check if all trackers are still present.
+      Result := CheckIfEverythingIsCompleat(VerifyTracker);
+    end;
+
+    // Console parameter: -U5
+    // Append new trackers list BEFORE, the original trackers list inside the torrent file.
+    // Keep original tracker list 'of each individual torrent' unchanged and remove nothing.
+    // Every torent may have diferent tracker list!
+    tloInsertNewBeforeAndKeepOriginalIntactAndRemoveNothing:
+    begin
+      atBegin_TrackerAdded := True;
+      MustBeIntact_TrackerAdded := False;
+      Result := CheckIfStillIntack(VerifyTracker, atBegin_TrackerAdded,
+        MustBeIntact_TrackerAdded);
+    end;
+
+    // Console parameter: -U6
+    // Append new trackers list AFTER, the original trackers list inside the torrent file.
+    // Keep original tracker list 'of each individual torrent' unchanged and remove nothing.
+    // Every torent may have diferent tracker list!
+    tloAppendNewAfterAndKeepOriginalIntactAndRemoveNothing:
+    begin
+      atBegin_TrackerAdded := False;
+      MustBeIntact_TrackerAdded := False;
+      Result := CheckIfStillIntack(VerifyTracker, atBegin_TrackerAdded,
+        MustBeIntact_TrackerAdded);
+    end;
+
+    // Console parameter: -U7
+    // Randomize the trackers list.
+    tloRandomize:
+    begin
+      //Must check if all trackers are still present.
+      Result := CheckIfEverythingIsCompleat(VerifyTracker);
+    end;
+    else
+    begin
+      Assert(False, 'ELSE: VerifyTrackerResult()');
+    end;
+
+  end;
+end;
+
+function LoadConsoleLog(const FileNameWithPath: string; out StatusOK: boolean;
+  out TorrentFilesCount: integer; out TrackersCount: integer): boolean;
+var
+  ConsoleStringlist: TStringList;
+begin
+{
+ console_log.txt is only created in console mode.
+ Show the in console mode the success/failure of the torrent update.
+ First line status: 'OK' or 'ERROR: xxxxxxx' xxxxxxx = error description
+ Second line files count: '1'
+ Third line tracker count: 23
+ Second and third line info are only valid if the first line is 'OK'
+}
+
+  //Result = true if file can be readed as expected.
+  // with 2 lines of values if first line is 'OK'
+
+  ConsoleStringlist := TStringList.Create;
+  try
+    ConsoleStringlist.LoadFromFile(FileNameWithPath);
+
+    Result := ConsoleStringlist.Count > 0;
+    if Result then
+    begin
+      StatusOK := ConsoleStringlist[0] = CONSOLE_SUCCESS_STATUS;
+    end;
+
+    if StatusOK then
+    begin
+      //The totall lines in the file must be 3
+      Result := ConsoleStringlist.Count >= 3;
+      if Result then
+      begin
+        Result := TryStrToInt(ConsoleStringlist[1], TorrentFilesCount);
+      end;
+
+      //read only if the TorrentFilesCount is successful
+      if Result then
+      begin
+        Result := TryStrToInt(ConsoleStringlist[2], TrackersCount);
+      end;
+    end;
+
+  except
+    Result := False;
+  end;
+
+  ConsoleStringlist.Free;
+end;
+
+end.
diff --git a/source/test/test_newtrackon.pas b/source/test/test_newtrackon.pas
new file mode 100644
index 0000000..ab9bb21
--- /dev/null
+++ b/source/test/test_newtrackon.pas
@@ -0,0 +1,89 @@
+// SPDX-License-Identifier: MIT
+unit test_newtrackon;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, fpcunit, testregistry, newtrackon; //testutils
+
+type
+
+  { TTestNewTrackon }
+
+  TTestNewTrackon = class(TTestCase)
+  private
+    FNewTrackon: TNewTrackon;
+  protected
+    procedure SetUp; override;
+    procedure TearDown; override;
+  published
+    procedure Test_API_Download;
+    procedure Test_API_Upload;
+  end;
+
+implementation
+
+procedure TTestNewTrackon.Test_API_Download;
+begin
+  Check(FNewTrackon.DownloadEverything, 'Download the newtrackon API');
+
+  Check(FNewTrackon.TrackerList_All.Count > 0,
+    'TrackerList_All should never be empty');
+
+  Check(FNewTrackon.TrackerList_Live.Count > 0,
+    'TrackerList_Live should never be empty');
+
+  Check(FNewTrackon.TrackerList_Stable.Count > 0,
+    'TrackerList_Stable should never be empty');
+
+  Check(FNewTrackon.TrackerList_Udp.Count > 0,
+    'TrackerList_Udp should never be empty');
+
+  Check(FNewTrackon.TrackerList_Http.Count > 0,
+    'TrackerList_Http should never be empty');
+
+  Check(FNewTrackon.TrackerList_Dead.Count > 0,
+    'TrackerList_Dead should never be empty');
+end;
+
+procedure TTestNewTrackon.Test_API_Upload;
+var
+  TrackerList: TStringList;
+  TrackersSendCount: integer;
+begin
+  TrackerList := TStringList.Create;
+
+  //Add two trackers
+  TrackerList.Add('udp://tracker.leechers-paradise.org:6969/announce');
+  TrackerList.Add('udp://tracker.test.org:6969/announce');//dummy URL
+  TrackerList.Add('wss://tracker.openwebtorrent.com');
+
+  //Test if upload is OK
+  try
+    Check(FNewTrackon.SubmitTrackers(TrackerList, TrackersSendCount),
+      'Upload the newtrackon API');
+    Check(TrackersSendCount <= TrackerList.Count, 'TrackersSendCount have too high value');
+  finally
+    TrackerList.Free;
+  end;
+
+end;
+
+procedure TTestNewTrackon.SetUp;
+begin
+  WriteLn('TTestNewTrackon.SetUp');
+  FNewTrackon := TNewTrackon.Create;
+end;
+
+procedure TTestNewTrackon.TearDown;
+begin
+  WriteLn('TTestNewTrackon.TearDown');
+  FNewTrackon.Free;
+end;
+
+initialization
+
+  RegisterTest(TTestNewTrackon);
+end.
diff --git a/source/test/test_ngosang_trackers_list.pas b/source/test/test_ngosang_trackers_list.pas
new file mode 100644
index 0000000..13d694e
--- /dev/null
+++ b/source/test/test_ngosang_trackers_list.pas
@@ -0,0 +1,77 @@
+// SPDX-License-Identifier: MIT
+unit test_ngosang_trackers_list;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, fpcunit, testregistry, ngosang_trackerslist;  //testutils,
+
+type
+
+  TTestNgosangTrackersList = class(TTestCase)
+  private
+    FngosangTrackerList: TngosangTrackerList;
+  protected
+    procedure SetUp; override;
+    procedure TearDown; override;
+  published
+    procedure Test_DownloadAPI;
+  end;
+
+implementation
+
+procedure TTestNgosangTrackersList.Test_DownloadAPI;
+begin
+  Check(FngosangTrackerList.TrackerList_Blacklist.Count > 0,
+    'TrackerList_Blacklist should never be empty');
+
+  Check(FngosangTrackerList.TrackerList_All.Count > 0,
+    'TrackerList_All should never be empty');
+
+  Check(FngosangTrackerList.TrackerList_All_HTTP.Count > 0,
+    'TrackerList_All_HTTP should never be empty');
+
+{ //HTTPS is not popular. it may be empty
+  Check(
+    FngosangTrackerList.TrackerList_All_HTTPS.Count > 0,
+    'TrackerList_All_HTTPS should never be empty');
+}
+  Check(
+    FngosangTrackerList.TrackerList_All_IP.Count > 0,
+    'TrackerList_All_IP should never be empty');
+
+  Check(
+    FngosangTrackerList.TrackerList_All_UDP.Count > 0,
+    'TrackerList_All_UDP should never be empty');
+
+  Check(
+    FngosangTrackerList.TrackerList_All_WS.Count > 0,
+    'TrackerList_All_WS should never be empty');
+
+  Check(
+    FngosangTrackerList.TrackerList_Best.Count > 0,
+    'TrackerList_Best should never be empty');
+
+  Check(
+    FngosangTrackerList.TrackerList_Best_IP.Count > 0,
+    'TrackerList_Best_IP should never be empty');
+end;
+
+procedure TTestNgosangTrackersList.SetUp;
+begin
+  WriteLn('TTestNgosangTrackersList.SetUp');
+  FngosangTrackerList := TngosangTrackerList.Create;
+end;
+
+procedure TTestNgosangTrackersList.TearDown;
+begin
+  WriteLn('TTestNgosangTrackersList.TearDown');
+  FngosangTrackerList.Free;
+end;
+
+initialization
+
+  RegisterTest(TTestNgosangTrackersList);
+end.
diff --git a/source/test/test_start_up_parameter.pas b/source/test/test_start_up_parameter.pas
new file mode 100644
index 0000000..5285a7e
--- /dev/null
+++ b/source/test/test_start_up_parameter.pas
@@ -0,0 +1,616 @@
+// SPDX-License-Identifier: MIT
+unit test_start_up_parameter;
+
+{
+  Tracker Editor can be started via parameter.
+  The working of these parameter must be tested.
+
+  ------------------------------------
+  There are 4 txt files that are being used for this test
+  All these files are place in the same folder as the executable files
+
+  List of all the trackers that must added.
+  add_trackers.txt
+
+  remove_trackers.txt
+  List of all the trackers that must removed
+  note: if the file is empty then all trackers from the present torrent will be REMOVED.
+  note: if the file is not present then no trackers will be automatic removed.
+
+  Check if the program is working as expected:
+  log.txt is only created in console mode.
+  Show the in console mode the success/failure of the torrent update.
+  First line status: 'OK' or 'ERROR: xxxxxxx' xxxxxxx = error description
+  Second line files count: '1'
+  Third line tracker count: 23
+  Second and third line info are only valid if the first line is 'OK'
+
+  Check what the torrent output is:
+  export_trackers.txt
+
+}
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, fpcunit, testregistry, newtrackon, torrent_miscellaneous,
+  test_miscellaneous;
+
+type
+  TConsoleLogData = record
+    StatusOK: boolean;
+    TorrentFilesCount: integer;
+    TrackersCount: integer;
+  end;
+
+  { TTestStartUpParameter }
+
+  TTestStartUpParameter = class(TTestCase)
+  private
+    FFullPathToRoot: string;
+    FFullPathToTorrent: string;
+    FFullPathToEndUser: string;
+    FFullPathToBinary: string;
+
+    FTorrentFilesNameStringList: TStringList;
+    FNewTrackon: TNewTrackon;
+    FVerifyTrackerResult: TVerifyTrackerResult;
+    FExitCode: integer;
+    FCommandLine: string;
+    FConsoleLogData: TConsoleLogData;
+
+    function ReadConsoleLogFile: boolean;
+    procedure TestParameter(const StartupParameter: TStartupParameter);
+    procedure DownloadPreTestTrackerList;
+    procedure LoadTrackerListAddAndRemoved;
+    procedure CallExecutableFile;
+    procedure CopyTrackerEndResultToVerifyTrackerResult;
+    procedure CreateEmptyTorrent(const StartupParameter: TStartupParameter);
+    procedure TestEmptyTorrentResult;
+    procedure CreateFilledTorrent(const StartupParameter: TStartupParameter);
+    procedure DownloadNewTrackonTrackers;
+    procedure Test_Paramater_Ux(TrackerListOrder: TTrackerListOrder);
+    procedure Add_One_URL(const StartupParameter: TStartupParameter;
+      const tracker_URL: string; TestMustBeSuccess: boolean);
+
+  protected
+    procedure SetUp; override;
+    procedure TearDown; override;
+  published
+    procedure Test_Parameter_TEST_SSL;
+    procedure Test_Tracker_UserInput_All_Different_URL;
+    procedure Test_Tracker_UserInput_All_Different_URL_And_SAC;
+    procedure Test_Create_Empty_Torrent_And_Then_Filled_It_All_List_Order_Mode;
+
+    procedure Test_Paramater_U0;
+    procedure Test_Paramater_U1;
+    procedure Test_Paramater_U2;
+    procedure Test_Paramater_U3;
+    procedure Test_Paramater_U4;
+    procedure Test_Paramater_U5_TODO;
+    procedure Test_Paramater_U6_TODO;
+    procedure Test_Paramater_U7;
+
+  end;
+
+implementation
+
+uses  LazUTF8;
+
+const
+  PROGRAME_TO_BE_TESTED_NAME = 'trackereditor';
+  TORRENT_FOLDER = 'test_torrent';
+  END_USER_FOLDER = 'enduser';
+
+  //there are 5 test torrent files in 'test_torrent' folder.
+  TEST_TORRENT_FILES_COUNT = 5;
+
+procedure TTestStartUpParameter.Test_Paramater_U0;
+begin
+  Test_Paramater_Ux(tloInsertNewBeforeAndKeepNewIntact);
+end;
+
+procedure TTestStartUpParameter.Test_Paramater_U1;
+begin
+  Test_Paramater_Ux(tloInsertNewBeforeAndKeepOriginalIntact);
+end;
+
+procedure TTestStartUpParameter.Test_Paramater_U2;
+begin
+  Test_Paramater_Ux(tloAppendNewAfterAndKeepNewIntact);
+end;
+
+procedure TTestStartUpParameter.Test_Paramater_U3;
+begin
+  Test_Paramater_Ux(tloAppendNewAfterAndKeepOriginalIntact);
+end;
+
+procedure TTestStartUpParameter.Test_Paramater_U4;
+begin
+  Test_Paramater_Ux(tloSort);
+end;
+
+procedure TTestStartUpParameter.Test_Paramater_U5_TODO;
+begin
+  //TODO: Must check every torrent file one by one
+  //Test_Paramater_Ux(tloInsertNewBeforeAndKeepOriginalIntactAndRemoveNothing);
+end;
+
+procedure TTestStartUpParameter.Test_Paramater_U6_TODO;
+begin
+  //TODO: Must check every torrent file one by one
+  //Test_Paramater_Ux(tloAppendNewAfterAndKeepOriginalIntactAndRemoveNothing);
+end;
+
+procedure TTestStartUpParameter.Test_Paramater_U7;
+begin
+  Test_Paramater_Ux(tloRandomize);
+end;
+
+procedure TTestStartUpParameter.Test_Parameter_TEST_SSL;
+begin
+  // Check if SSL connection is working.
+  FCommandLine := '-TEST_SSL';
+  CallExecutableFile;
+  // Exit code should be zero
+  CheckEquals(0, FExitCode);
+end;
+
+//procedure TTestStartUpParameter.TestParameter(TrackerListOrder: TTrackerListOrder);
+procedure TTestStartUpParameter.TestParameter(const StartupParameter: TStartupParameter);
+begin
+  FVerifyTrackerResult.StartupParameter := StartupParameter;
+
+  //Fill in the command line parameter '-Ux', x = number
+  FCommandLine := format('%s -U%d', [FFullPathToTorrent,
+    Ord(StartupParameter.TrackerListOrder)]);
+
+  if StartupParameter.SkipAnnounceCheck then
+  begin
+    FCommandLine := FCommandLine + ' -SAC';
+  end;
+
+  if StartupParameter.SourcePresent then
+  begin
+    FCommandLine := FCommandLine + ' -SOURCE ' + StartupParameter.SourceText;
+  end;
+end;
+
+procedure TTestStartUpParameter.DownloadPreTestTrackerList;
+begin
+  DownloadNewTrackonTrackers;
+
+  //copy all the download to txt file.
+
+  //TrackerList_All have all the trackers available
+  FNewTrackon.TrackerList_All.SaveToFile(FFullPathToEndUser + FILE_NAME_ADD_TRACKERS);
+
+  //TrackerList_Dead must remove the dead one.
+  FNewTrackon.TrackerList_Dead.SaveToFile(FFullPathToEndUser +
+    FILE_NAME_REMOVE_TRACKERS);
+
+end;
+
+procedure TTestStartUpParameter.LoadTrackerListAddAndRemoved;
+begin
+  FVerifyTrackerResult.TrackerAdded.LoadFromFile(FFullPathToEndUser +
+    FILE_NAME_ADD_TRACKERS);
+
+  FVerifyTrackerResult.TrackerRemoved.LoadFromFile(FFullPathToEndUser +
+    FILE_NAME_REMOVE_TRACKERS);
+end;
+
+procedure TTestStartUpParameter.CallExecutableFile;
+begin
+  //start the. This will return the Exit code
+  FExitCode := SysUtils.ExecuteProcess(UTF8ToSys(FFullPathToBinary), FCommandLine, []);
+end;
+
+procedure TTestStartUpParameter.CopyTrackerEndResultToVerifyTrackerResult;
+begin
+  FVerifyTrackerResult.TrackerEndResult.LoadFromFile(FFullPathToEndUser +
+    FILE_NAME_EXPORT_TRACKERS);
+
+  //remove empty space
+  RemoveLineSeperation(FVerifyTrackerResult.TrackerEndResult);
+
+end;
+
+procedure TTestStartUpParameter.CreateEmptyTorrent(
+  const StartupParameter: TStartupParameter);
+begin
+  //write a empty remove trackers
+  FVerifyTrackerResult.TrackerRemoved.Clear;
+  FVerifyTrackerResult.TrackerRemoved.SaveToFile(FFullPathToEndUser +
+    FILE_NAME_REMOVE_TRACKERS);
+
+  //write a empty add trackers
+  FVerifyTrackerResult.TrackerAdded.Clear;
+  FVerifyTrackerResult.TrackerAdded.SaveToFile(FFullPathToEndUser +
+    FILE_NAME_ADD_TRACKERS);
+
+  //Generate the command line parameter
+  TestParameter(StartupParameter);
+
+  //call the tracker editor exe file
+  CallExecutableFile;
+end;
+
+procedure TTestStartUpParameter.TestEmptyTorrentResult;
+begin
+  //Copy test result into FVerifyTrackerResult
+  CopyTrackerEndResultToVerifyTrackerResult;
+
+  Check(FVerifyTrackerResult.TrackerEndResult.Count = 0,
+    'The tracker list should be empty.');
+end;
+
+procedure TTestStartUpParameter.CreateFilledTorrent(
+  const StartupParameter: TStartupParameter);
+begin
+  DownloadNewTrackonTrackers;
+
+  //write a empty remove trackers
+  FVerifyTrackerResult.TrackerRemoved.Clear;
+  FVerifyTrackerResult.TrackerRemoved.SaveToFile(FFullPathToEndUser +
+    FILE_NAME_REMOVE_TRACKERS);
+
+  //write a some trackers to add. This
+  FVerifyTrackerResult.TrackerAdded.Clear;
+  FVerifyTrackerResult.TrackerAdded.Add('udp://1.test/announce');
+
+  //Add one torrent that later will be removed
+  if FNewTrackon.TrackerList_Dead.Count > 0 then
+  begin
+    FVerifyTrackerResult.TrackerAdded.Add(FNewTrackon.TrackerList_Dead[0]);
+  end;
+
+  //Add one torrent that that must may be removed
+  if FNewTrackon.TrackerList_Live.Count > 0 then
+  begin
+    FVerifyTrackerResult.TrackerAdded.Add(FNewTrackon.TrackerList_Live[0]);
+  end;
+
+  FVerifyTrackerResult.TrackerAdded.Add('udp://2.test/announce');
+  FVerifyTrackerResult.TrackerAdded.SaveToFile(FFullPathToEndUser +
+    FILE_NAME_ADD_TRACKERS);
+
+  //Generate the command line parameter
+  TestParameter(StartupParameter);
+
+  //call the tracker editor exe file
+  CallExecutableFile;
+
+  //Copy test result into FVerifyTrackerResult
+  CopyTrackerEndResultToVerifyTrackerResult;
+
+  Check(FVerifyTrackerResult.TrackerEndResult.Count =
+    FVerifyTrackerResult.TrackerAdded.Count,
+    'TrackerEndResult should have the same count as TrackerAdded');
+
+  //For the next test load the present content inside the torrent
+  FVerifyTrackerResult.TrackerOriginal.Assign(FVerifyTrackerResult.TrackerAdded);
+
+end;
+
+procedure TTestStartUpParameter.DownloadNewTrackonTrackers;
+begin
+  //download only one time
+  if FNewTrackon.TrackerList_All.Count = 0 then
+  begin
+    Check(FNewTrackon.DownloadEverything, 'Download Newtrackon failed');
+  end;
+end;
+
+procedure TTestStartUpParameter.Test_Paramater_Ux(TrackerListOrder: TTrackerListOrder);
+
+var
+  OK: boolean;
+  StartupParameter: TStartupParameter;
+begin
+  //Create a torrent with fix torrent items
+  //this is the pre test condition
+  StartupParameter.TrackerListOrder := tloInsertNewBeforeAndKeepNewIntact;
+  StartupParameter.SkipAnnounceCheck := False;
+  StartupParameter.SourcePresent := False;
+  CreateFilledTorrent(StartupParameter);
+
+  //Download all the trackers .txt files
+  DownloadPreTestTrackerList;
+
+  //load all the txt file into memory
+  LoadTrackerListAddAndRemoved;
+
+  //Generate the command line parameter
+  StartupParameter.TrackerListOrder := TrackerListOrder;
+  TestParameter(StartupParameter);
+
+  //call the tracker editor exe file
+  CallExecutableFile;
+
+  //Copy test result into FVerifyTrackerResult
+  CopyTrackerEndResultToVerifyTrackerResult;
+
+  //check if the test result is correct
+  OK := VerifyTrackerResult(FVerifyTrackerResult);
+  Check(OK, FVerifyTrackerResult.ErrorString);
+
+  //check the exit code
+  CheckEquals(0, FExitCode);
+
+  //Check the logdata status
+  Check(ReadConsoleLogFile, 'Log data is not present');
+  Check(FConsoleLogData.StatusOK);
+  Check(FConsoleLogData.TrackersCount > 0);
+  Check(FConsoleLogData.TorrentFilesCount = TEST_TORRENT_FILES_COUNT);
+end;
+
+procedure TTestStartUpParameter.Add_One_URL(const StartupParameter: TStartupParameter;
+  const tracker_URL: string; TestMustBeSuccess: boolean);
+begin
+  //add one tracker to the 'add_trackers'
+  FVerifyTrackerResult.TrackerAdded.Clear;
+  FVerifyTrackerResult.TrackerAdded.Add(tracker_URL);
+
+  FVerifyTrackerResult.TrackerAdded.SaveToFile(FFullPathToEndUser +
+    FILE_NAME_ADD_TRACKERS);
+
+  //Generate the command line parameter
+  TestParameter(StartupParameter);
+
+  //call the tracker editor exe file
+  CallExecutableFile;
+
+  //Check the logdata status
+  Check(ReadConsoleLogFile, 'Log data is not present');
+
+
+  if TestMustBeSuccess then
+  begin
+    //check the exit code. Must be OK
+    CheckEquals(0, FExitCode, tracker_URL);
+
+    //the result must be True
+    CheckTrue(FConsoleLogData.StatusOK, tracker_URL);
+  end
+  else
+  begin
+    //check the exit code. Must be an error
+    CheckNotEquals(0, FExitCode, tracker_URL);
+
+    //the result must be false
+    CheckFalse(FConsoleLogData.StatusOK, tracker_URL);
+  end;
+
+end;
+
+
+procedure TTestStartUpParameter.Test_Tracker_UserInput_All_Different_URL;
+var
+  TrackerListOrder: TTrackerListOrder;
+  TrackerURL: string;
+  StartupParameter: TStartupParameter;
+const
+  ANNOUNCE = '/announce';
+  ANNOUNCE_PHP = '/announce.php';
+begin
+  StartupParameter.SkipAnnounceCheck := False;
+  StartupParameter.SourcePresent := False;
+
+  //Test if all the tracker update mode is working
+  for TrackerListOrder in TTrackerListOrder do
+  begin
+    StartupParameter.TrackerListOrder := TrackerListOrder;
+
+    TrackerURL := 'udp://test.com';
+    Add_One_URL(StartupParameter, TrackerURL, False);
+    Add_One_URL(StartupParameter, TrackerURL + ANNOUNCE, True);
+    Add_One_URL(StartupParameter, TrackerURL + ANNOUNCE_PHP, True);
+
+    TrackerURL := 'http://test.com';
+    Add_One_URL(StartupParameter, TrackerURL, False);
+    Add_One_URL(StartupParameter, TrackerURL + ANNOUNCE, True);
+    Add_One_URL(StartupParameter, TrackerURL + ANNOUNCE_PHP, True);
+
+    TrackerURL := 'https://test.com';
+    Add_One_URL(StartupParameter, TrackerURL, False);
+    Add_One_URL(StartupParameter, TrackerURL + ANNOUNCE, True);
+    Add_One_URL(StartupParameter, TrackerURL + ANNOUNCE_PHP, True);
+
+    //webtorrent may have NOT announce
+    TrackerURL := 'ws://test.com';
+    Add_One_URL(StartupParameter, TrackerURL, True);
+    Add_One_URL(StartupParameter, TrackerURL + ANNOUNCE, True);
+
+    TrackerURL := 'wss://test.com';
+    Add_One_URL(StartupParameter, TrackerURL, True);
+    Add_One_URL(StartupParameter, TrackerURL + ANNOUNCE, True);
+  end;
+end;
+
+procedure TTestStartUpParameter.Test_Tracker_UserInput_All_Different_URL_And_SAC;
+var
+  TrackerListOrder: TTrackerListOrder;
+  TrackerURL: string;
+  StartupParameter: TStartupParameter;
+const
+  ANNOUNCE = '/announce';
+  ANNOUNCE_PHP = '/announce.php';
+  ANNOUNCE_private = '/announce?abcd';
+
+  procedure TestStartUpParameter;
+  begin
+    Add_One_URL(StartupParameter, TrackerURL, True);
+    Add_One_URL(StartupParameter, TrackerURL + ANNOUNCE, True);
+    Add_One_URL(StartupParameter, TrackerURL + ANNOUNCE_PHP, True);
+    Add_One_URL(StartupParameter, TrackerURL + ANNOUNCE_private, True);
+  end;
+
+  procedure TestAllURL;
+  begin
+    //Test if all the tracker update mode is working
+    for TrackerListOrder in TTrackerListOrder do
+    begin
+      StartupParameter.TrackerListOrder := TrackerListOrder;
+
+      TrackerURL := 'udp://test.com';
+      TestStartUpParameter;
+
+      TrackerURL := 'http://test.com';
+      TestStartUpParameter;
+
+      TrackerURL := 'https://test.com';
+      TestStartUpParameter;
+
+      TrackerURL := 'ws://test.com';
+      TestStartUpParameter;
+
+      TrackerURL := 'wss://test.com';
+      TestStartUpParameter;
+    end;
+  end;
+
+begin
+  // Skip announce check.
+  StartupParameter.SkipAnnounceCheck := True;
+  StartupParameter.SourcePresent := False;
+  TestAllURL;
+
+  // Skip announce check and add SOURCE
+  StartupParameter.SkipAnnounceCheck := True;
+  StartupParameter.SourcePresent := True;
+  StartupParameter.SourceText := 'ABCDE';
+  TestAllURL;
+end;
+
+procedure TTestStartUpParameter.
+Test_Create_Empty_Torrent_And_Then_Filled_It_All_List_Order_Mode;
+var
+  TrackerListOrder: TTrackerListOrder;
+  StartupParameter: TStartupParameter;
+begin
+  //Test if all the mode that support empty torrent creation
+  //Empty torrent -> filled torrent -> empty torrent
+
+  StartupParameter.SkipAnnounceCheck := False;
+  StartupParameter.SourcePresent := False;
+
+  for TrackerListOrder in TTrackerListOrder do
+  begin
+    StartupParameter.TrackerListOrder := TrackerListOrder;
+
+    //It is by design that it can not create a empty torrent
+    //The 'KeepOriginalIntactAndRemoveNothing' prevent it from deleting the torrent
+    //must skip the test for this one
+    if TrackerListOrder = tloInsertNewBeforeAndKeepOriginalIntactAndRemoveNothing then
+      continue;
+
+    //It is by design that it can not create a empty torrent
+    //The 'KeepOriginalIntactAndRemoveNothing' prevent it from deleting the torrent
+    //must skip the test for this one
+    if TrackerListOrder = tloAppendNewAfterAndKeepOriginalIntactAndRemoveNothing then
+      continue;
+
+    //Create empty the torrent
+    CreateEmptyTorrent(StartupParameter);
+    //check the exit code
+    CheckEquals(0, FExitCode);
+
+    TestEmptyTorrentResult;
+    //Check the logdata status
+    Check(ReadConsoleLogFile, 'Log data is not present');
+    Check(FConsoleLogData.StatusOK);
+    Check(FConsoleLogData.TrackersCount = 0);
+    Check(FConsoleLogData.TorrentFilesCount = TEST_TORRENT_FILES_COUNT);
+
+    //fill the empty torrent with data
+    CreateFilledTorrent(StartupParameter);
+    //check the exit code
+    CheckEquals(0, FExitCode);
+
+    //Check the logdata status
+    Check(ReadConsoleLogFile, 'Log data is not present');
+    Check(FConsoleLogData.StatusOK);
+    Check(FConsoleLogData.TrackersCount > 0);
+    Check(FConsoleLogData.TorrentFilesCount = TEST_TORRENT_FILES_COUNT);
+
+    //Create empty the torrent again
+    CreateEmptyTorrent(StartupParameter);
+    //check the exit code
+    CheckEquals(0, FExitCode);
+
+    TestEmptyTorrentResult;
+    //Check the log data status
+    Check(ReadConsoleLogFile, 'Log data is not present');
+    Check(FConsoleLogData.StatusOK);
+    Check(FConsoleLogData.TrackersCount = 0);
+    Check(FConsoleLogData.TorrentFilesCount = TEST_TORRENT_FILES_COUNT);
+
+  end;
+end;
+
+procedure TTestStartUpParameter.SetUp;
+begin
+  WriteLn('TTestStartUpParameter.SetUp');
+  //Create all the TStringList items
+  FVerifyTrackerResult.TrackerOriginal := TStringList.Create;
+  FVerifyTrackerResult.TrackerAdded := TStringList.Create;
+  FVerifyTrackerResult.TrackerRemoved := TStringList.Create;
+  FVerifyTrackerResult.TrackerEndResult := TStringList.Create;
+
+  //Create some full path link
+  FFullPathToRoot := GetProjectRootFolderWithPathDelimiter;
+  FFullPathToTorrent := FFullPathToRoot + TORRENT_FOLDER + PathDelim;
+  FFullPathToEndUser := FFullPathToRoot + END_USER_FOLDER + PathDelim;
+
+  //fill with torrent file(s)
+  FTorrentFilesNameStringList := TStringList.Create;
+  torrent_miscellaneous.LoadTorrentViaDir(FFullPathToTorrent,
+    FTorrentFilesNameStringList);
+
+  FNewTrackon := TNewTrackon.Create;
+
+  //path to the programe we want to test.
+  FFullPathToBinary := FFullPathToEndUser + PROGRAME_TO_BE_TESTED_NAME +
+    ExtractFileExt(ParamStr(0));
+
+  //Delete all the previeus test result
+  DeleteFile(FFullPathToEndUser + FILE_NAME_CONSOLE_LOG);
+  DeleteFile(FFullPathToEndUser + FILE_NAME_EXPORT_TRACKERS);
+  DeleteFile(FFullPathToEndUser + FILE_NAME_ADD_TRACKERS);
+  DeleteFile(FFullPathToEndUser + FILE_NAME_REMOVE_TRACKERS);
+
+end;
+
+procedure TTestStartUpParameter.TearDown;
+begin
+  WriteLn('TTestStartUpParameter.TearDown');
+  //Free the TStringList items
+  FVerifyTrackerResult.TrackerOriginal.Free;
+  FVerifyTrackerResult.TrackerAdded.Free;
+  FVerifyTrackerResult.TrackerRemoved.Free;
+  FVerifyTrackerResult.TrackerEndResult.Free;
+
+
+  FTorrentFilesNameStringList.Free;
+  FNewTrackon.Free;
+end;
+
+function TTestStartUpParameter.ReadConsoleLogFile: boolean;
+begin
+  Result := LoadConsoleLog(FFullPathToEndUser + FILE_NAME_CONSOLE_LOG,
+    FConsoleLogData.StatusOK, FConsoleLogData.TorrentFilesCount,
+    FConsoleLogData.TrackersCount);
+end;
+
+initialization
+  // macOS version does not support startup parameter
+{$IFNDEF CPUAARCH64}
+{$IFNDEF DARWIN}
+  RegisterTest(TTestStartUpParameter);
+{$ENDIF}
+{$ENDIF}
+
+end.
diff --git a/source/trackereditor.lpi b/source/trackereditor.lpi
deleted file mode 100644
index 9e400cc..0000000
--- a/source/trackereditor.lpi
+++ /dev/null
@@ -1,693 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<CONFIG>
-  <ProjectOptions>
-    <Version Value="9"/>
-    <PathDelim Value="\"/>
-    <General>
-      <MainUnit Value="0"/>
-      <Title Value="trackereditor"/>
-      <ResourceType Value="res"/>
-      <UseXPManifest Value="True"/>
-      <Icon Value="0"/>
-      <ActiveWindowIndexAtStart Value="0"/>
-    </General>
-    <i18n>
-      <EnableI18N LFM="False"/>
-    </i18n>
-    <VersionInfo>
-      <StringTable ProductVersion=""/>
-    </VersionInfo>
-    <BuildModes Count="1" Active="Default">
-      <Item1 Name="Default" Default="True"/>
-    </BuildModes>
-    <PublishOptions>
-      <Version Value="2"/>
-      <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
-      <ExcludeFileFilter Value="*.(bak|ppu|o|so);*~;backup"/>
-    </PublishOptions>
-    <RunParams>
-      <local>
-        <FormatVersion Value="1"/>
-      </local>
-    </RunParams>
-    <RequiredPackages Count="1">
-      <Item1>
-        <PackageName Value="LCL"/>
-      </Item1>
-    </RequiredPackages>
-    <Units Count="60">
-      <Unit0>
-        <Filename Value="trackereditor.lpr"/>
-        <IsPartOfProject Value="True"/>
-        <UnitName Value="trackereditor"/>
-        <EditorIndex Value="1"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="1"/>
-        <CursorPos X="23" Y="20"/>
-        <UsageCount Value="200"/>
-        <Loaded Value="True"/>
-      </Unit0>
-      <Unit1>
-        <Filename Value="main.pas"/>
-        <IsPartOfProject Value="True"/>
-        <ComponentName Value="FormTrackerModify"/>
-        <HasResources Value="True"/>
-        <ResourceBaseClass Value="Form"/>
-        <UnitName Value="main"/>
-        <IsVisibleTab Value="True"/>
-        <EditorIndex Value="0"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="105"/>
-        <CursorPos X="50" Y="167"/>
-        <UsageCount Value="200"/>
-        <Loaded Value="True"/>
-        <LoadedDesigner Value="True"/>
-      </Unit1>
-      <Unit2>
-        <Filename Value="C:\lazarus\fpc\2.4.4\source\rtl\objpas\sysutils\filutilh.inc"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="1"/>
-        <CursorPos X="3" Y="53"/>
-        <UsageCount Value="9"/>
-      </Unit2>
-      <Unit3>
-        <Filename Value="C:\lazarus\fpc\2.4.4\source\rtl\win\sysutils.pp"/>
-        <UnitName Value="sysutils"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="386"/>
-        <CursorPos X="3" Y="388"/>
-        <UsageCount Value="9"/>
-      </Unit3>
-      <Unit4>
-        <Filename Value="bencode.pp"/>
-        <UnitName Value="bencode"/>
-        <UsageCount Value="3"/>
-      </Unit4>
-      <Unit5>
-        <Filename Value="bencode.pas"/>
-        <IsPartOfProject Value="True"/>
-        <UnitName Value="BEncode"/>
-        <EditorIndex Value="11"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="15"/>
-        <CursorPos X="42" Y="33"/>
-        <UsageCount Value="201"/>
-        <Loaded Value="True"/>
-      </Unit5>
-      <Unit6>
-        <Filename Value="decodetorrent.pas"/>
-        <IsPartOfProject Value="True"/>
-        <UnitName Value="DecodeTorrent"/>
-        <EditorIndex Value="12"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="369"/>
-        <CursorPos X="1" Y="451"/>
-        <UsageCount Value="200"/>
-        <Loaded Value="True"/>
-      </Unit6>
-      <Unit7>
-        <Filename Value="C:\lazarus\fpc\2.4.4\source\rtl\objpas\classes\classesh.inc"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="1894"/>
-        <CursorPos X="1" Y="2000"/>
-        <UsageCount Value="10"/>
-      </Unit7>
-      <Unit8>
-        <Filename Value="C:\lazarus\fpc\2.4.4\source\rtl\objpas\types.pp"/>
-        <UnitName Value="types"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="71"/>
-        <CursorPos X="59" Y="118"/>
-        <UsageCount Value="8"/>
-      </Unit8>
-      <Unit9>
-        <Filename Value="C:\lazarus\fpc\2.4.4\source\rtl\objpas\classes\stringl.inc"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="1267"/>
-        <CursorPos X="3" Y="1270"/>
-        <UsageCount Value="8"/>
-      </Unit9>
-      <Unit10>
-        <Filename Value="C:\lazarus\lcl\checklst.pas"/>
-        <UnitName Value="CheckLst"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="50"/>
-        <CursorPos X="14" Y="105"/>
-        <UsageCount Value="84"/>
-      </Unit10>
-      <Unit11>
-        <Filename Value="C:\lazarus\lcl\stdctrls.pp"/>
-        <UnitName Value="StdCtrls"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="471"/>
-        <CursorPos X="15" Y="524"/>
-        <UsageCount Value="14"/>
-      </Unit11>
-      <Unit12>
-        <Filename Value="C:\lazarus\lcl\lcltype.pp"/>
-        <UnitName Value="LCLType"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="711"/>
-        <CursorPos X="3" Y="764"/>
-        <UsageCount Value="21"/>
-      </Unit12>
-      <Unit13>
-        <Filename Value="C:\lazarus\fpc\2.4.4\source\packages\fcl-base\src\contnrs.pp"/>
-        <UnitName Value="contnrs"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="27"/>
-        <CursorPos X="17" Y="80"/>
-        <UsageCount Value="9"/>
-      </Unit13>
-      <Unit14>
-        <Filename Value="C:\lazarus\lcl\include\control.inc"/>
-        <EditorIndex Value="5"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="3417"/>
-        <CursorPos X="3" Y="3422"/>
-        <UsageCount Value="19"/>
-        <Loaded Value="True"/>
-      </Unit14>
-      <Unit15>
-        <Filename Value="C:\lazarus\fpc\2.4.2\source\rtl\objpas\classes\classesh.inc"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="658"/>
-        <CursorPos X="14" Y="691"/>
-        <UsageCount Value="6"/>
-      </Unit15>
-      <Unit16>
-        <Filename Value="C:\lazarus\fpc\2.6.2\source\rtl\objpas\classes\classesh.inc"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="914"/>
-        <CursorPos X="15" Y="952"/>
-        <UsageCount Value="79"/>
-      </Unit16>
-      <Unit17>
-        <Filename Value="C:\lazarus\fpc\2.6.2\source\rtl\objpas\classes\stringl.inc"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="781"/>
-        <CursorPos X="3" Y="785"/>
-        <UsageCount Value="79"/>
-      </Unit17>
-      <Unit18>
-        <Filename Value="C:\lazarus\fpc\2.6.2\source\rtl\objpas\types.pp"/>
-        <UnitName Value="types"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="71"/>
-        <CursorPos X="27" Y="124"/>
-        <UsageCount Value="79"/>
-      </Unit18>
-      <Unit19>
-        <Filename Value="C:\lazarus\fpc\2.6.2\source\rtl\objpas\classes\streams.inc"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="697"/>
-        <CursorPos X="26" Y="700"/>
-        <UsageCount Value="76"/>
-      </Unit19>
-      <Unit20>
-        <Filename Value="C:\lazarus\fpc\2.6.2\source\packages\hash\src\sha1.pp"/>
-        <UnitName Value="sha1"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="1"/>
-        <CursorPos X="10" Y="37"/>
-        <UsageCount Value="20"/>
-      </Unit20>
-      <Unit21>
-        <Filename Value="C:\lazarus\fpc\2.6.2\source\packages\fcl-base\src\uriparser.pp"/>
-        <UnitName Value="URIParser"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="1"/>
-        <CursorPos X="78" Y="52"/>
-        <UsageCount Value="18"/>
-      </Unit21>
-      <Unit22>
-        <Filename Value="C:\lazarus\lcl\valedit.pas"/>
-        <UnitName Value="ValEdit"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="108"/>
-        <CursorPos X="14" Y="161"/>
-        <UsageCount Value="10"/>
-      </Unit22>
-      <Unit23>
-        <Filename Value="C:\lazarus\lcl\grids.pas"/>
-        <UnitName Value="Grids"/>
-        <EditorIndex Value="6"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="10798"/>
-        <CursorPos X="1" Y="10854"/>
-        <UsageCount Value="32"/>
-        <Loaded Value="True"/>
-      </Unit23>
-      <Unit24>
-        <Filename Value="C:\lazarus\fpc\2.6.2\source\rtl\objpas\objpas.pp"/>
-        <UnitName Value="objpas"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="1"/>
-        <CursorPos X="8" Y="28"/>
-        <UsageCount Value="13"/>
-      </Unit24>
-      <Unit25>
-        <Filename Value="C:\lazarus\components\lazutils\fileutil.inc"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="32"/>
-        <CursorPos X="1" Y="42"/>
-        <UsageCount Value="11"/>
-      </Unit25>
-      <Unit26>
-        <Filename Value="C:\lazarus\components\lazutils\fileutil.pas"/>
-        <UnitName Value="FileUtil"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="151"/>
-        <CursorPos X="10" Y="189"/>
-        <UsageCount Value="10"/>
-      </Unit26>
-      <Unit27>
-        <Filename Value="C:\lazarus\fpc\2.6.2\source\rtl\inc\ustringh.inc"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="52"/>
-        <CursorPos X="10" Y="114"/>
-        <UsageCount Value="10"/>
-      </Unit27>
-      <Unit28>
-        <Filename Value="C:\lazarus\fpc\2.6.2\source\rtl\inc\ustrings.inc"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="2359"/>
-        <CursorPos X="5" Y="2361"/>
-        <UsageCount Value="10"/>
-      </Unit28>
-      <Unit29>
-        <Filename Value="C:\lazarus\components\lazutils\winfileutil.inc"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="1"/>
-        <CursorPos X="1" Y="41"/>
-        <UsageCount Value="10"/>
-      </Unit29>
-      <Unit30>
-        <Filename Value="C:\lazarus\components\lazutils\lazutf8classes.pas"/>
-        <UnitName Value="LazUTF8Classes"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="44"/>
-        <CursorPos X="32" Y="144"/>
-        <UsageCount Value="28"/>
-      </Unit30>
-      <Unit31>
-        <Filename Value="C:\lazarus\fpc\2.6.4\source\rtl\objpas\classes\classesh.inc"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="618"/>
-        <CursorPos X="15" Y="670"/>
-        <UsageCount Value="33"/>
-      </Unit31>
-      <Unit32>
-        <Filename Value="C:\lazarus\fpc\2.6.4\source\rtl\objpas\classes\stringl.inc"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="607"/>
-        <CursorPos X="24" Y="611"/>
-        <UsageCount Value="24"/>
-      </Unit32>
-      <Unit33>
-        <Filename Value="C:\lazarus\lcl\textstrings.pas"/>
-        <UnitName Value="TextStrings"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="125"/>
-        <CursorPos X="1" Y="178"/>
-        <UsageCount Value="10"/>
-      </Unit33>
-      <Unit34>
-        <Filename Value="C:\lazarus\fpc\2.6.4\source\rtl\inc\objpash.inc"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="139"/>
-        <CursorPos X="23" Y="192"/>
-        <UsageCount Value="9"/>
-      </Unit34>
-      <Unit35>
-        <Filename Value="C:\lazarus\lcl\lclproc.pas"/>
-        <UnitName Value="LCLProc"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="1446"/>
-        <CursorPos X="3" Y="1448"/>
-        <UsageCount Value="13"/>
-      </Unit35>
-      <Unit36>
-        <Filename Value="C:\lazarus\components\lazutils\lazloggerbase.pas"/>
-        <UnitName Value="LazLoggerBase"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="61"/>
-        <CursorPos X="23" Y="99"/>
-        <UsageCount Value="13"/>
-      </Unit36>
-      <Unit37>
-        <Filename Value="C:\lazarus\lcl\include\application.inc"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="183"/>
-        <CursorPos X="1" Y="236"/>
-        <UsageCount Value="10"/>
-      </Unit37>
-      <Unit38>
-        <Filename Value="C:\lazarus\fpc\2.6.4\source\rtl\inc\wstringh.inc"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="1"/>
-        <CursorPos X="65" Y="26"/>
-        <UsageCount Value="10"/>
-      </Unit38>
-      <Unit39>
-        <Filename Value="C:\lazarus\components\lazutils\lazutf8.pas"/>
-        <UnitName Value="LazUTF8"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="1"/>
-        <CursorPos X="1" Y="1"/>
-        <UsageCount Value="12"/>
-      </Unit39>
-      <Unit40>
-        <Filename Value="C:\lazarus\fpc\2.6.4\source\rtl\inc\systemh.inc"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="249"/>
-        <CursorPos X="41" Y="302"/>
-        <UsageCount Value="15"/>
-      </Unit40>
-      <Unit41>
-        <Filename Value="C:\lazarus\lcl\comctrls.pp"/>
-        <UnitName Value="ComCtrls"/>
-        <EditorIndex Value="9"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="2769"/>
-        <CursorPos X="3" Y="2700"/>
-        <UsageCount Value="24"/>
-        <Loaded Value="True"/>
-      </Unit41>
-      <Unit42>
-        <Filename Value="C:\lazarus\lcl\include\customform.inc"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="2486"/>
-        <CursorPos X="1" Y="2539"/>
-        <UsageCount Value="11"/>
-      </Unit42>
-      <Unit43>
-        <Filename Value="C:\lazarus\lcl\interfaces\win32\win32callback.inc"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="2223"/>
-        <CursorPos X="1" Y="2276"/>
-        <UsageCount Value="11"/>
-      </Unit43>
-      <Unit44>
-        <Filename Value="C:\lazarus\fpc\2.6.4\source\rtl\objpas\classes\lists.inc"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="921"/>
-        <CursorPos X="3" Y="948"/>
-        <UsageCount Value="12"/>
-      </Unit44>
-      <Unit45>
-        <Filename Value="C:\lazarus\fpc\2.6.4\source\rtl\win32\system.pp"/>
-        <UnitName Value="System"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="1"/>
-        <CursorPos X="2" Y="38"/>
-        <UsageCount Value="9"/>
-      </Unit45>
-      <Unit46>
-        <Filename Value="C:\lazarus\fpc\2.6.4\source\packages\fcl-base\src\contnrs.pp"/>
-        <UnitName Value="contnrs"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="38"/>
-        <CursorPos X="14" Y="91"/>
-        <UsageCount Value="14"/>
-      </Unit46>
-      <Unit47>
-        <Filename Value="C:\lazarus\fpc\2.6.4\source\rtl\objpas\sysutils\datih.inc"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="67"/>
-        <CursorPos X="74" Y="121"/>
-        <UsageCount Value="18"/>
-      </Unit47>
-      <Unit48>
-        <Filename Value="C:\lazarus\lcl\controls.pp"/>
-        <UnitName Value="Controls"/>
-        <EditorIndex Value="3"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="2128"/>
-        <CursorPos X="15" Y="2181"/>
-        <UsageCount Value="20"/>
-        <Loaded Value="True"/>
-      </Unit48>
-      <Unit49>
-        <Filename Value="C:\lazarus\lcl\include\wincontrol.inc"/>
-        <EditorIndex Value="4"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="5541"/>
-        <CursorPos X="3" Y="5548"/>
-        <UsageCount Value="12"/>
-        <Loaded Value="True"/>
-      </Unit49>
-      <Unit50>
-        <Filename Value="C:\lazarus\lcl\include\customlistbox.inc"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="144"/>
-        <CursorPos X="1" Y="197"/>
-        <UsageCount Value="16"/>
-      </Unit50>
-      <Unit51>
-        <Filename Value="C:\lazarus\fpc\2.6.4\source\rtl\objpas\classes\streams.inc"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="503"/>
-        <CursorPos X="3" Y="506"/>
-        <UsageCount Value="12"/>
-      </Unit51>
-      <Unit52>
-        <Filename Value="C:\lazarus\lcl\include\treeview.inc"/>
-        <EditorIndex Value="10"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="1227"/>
-        <CursorPos X="3" Y="1229"/>
-        <UsageCount Value="21"/>
-        <Loaded Value="True"/>
-      </Unit52>
-      <Unit53>
-        <Filename Value="C:\lazarus\fpc\2.6.4\source\rtl\objpas\sysutils\sysstrh.inc"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="62"/>
-        <CursorPos X="10" Y="115"/>
-        <UsageCount Value="11"/>
-      </Unit53>
-      <Unit54>
-        <Filename Value="C:\lazarus\fpc\2.6.4\source\rtl\objpas\sysutils\sysstr.inc"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="100"/>
-        <CursorPos X="3" Y="116"/>
-        <UsageCount Value="9"/>
-      </Unit54>
-      <Unit55>
-        <Filename Value="C:\lazarus\fpc\2.6.4\source\rtl\objpas\sysutils\filutilh.inc"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="8"/>
-        <CursorPos X="10" Y="94"/>
-        <UsageCount Value="12"/>
-      </Unit55>
-      <Unit56>
-        <Filename Value="C:\lazarus\fpc\2.6.4\source\rtl\objpas\sysutils\sysinth.inc"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="22"/>
-        <CursorPos X="22" Y="72"/>
-        <UsageCount Value="15"/>
-      </Unit56>
-      <Unit57>
-        <Filename Value="C:\lazarus\lcl\maps.pp"/>
-        <UnitName Value="maps"/>
-        <EditorIndex Value="8"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="95"/>
-        <CursorPos X="3" Y="148"/>
-        <UsageCount Value="18"/>
-        <Loaded Value="True"/>
-      </Unit57>
-      <Unit58>
-        <Filename Value="controlergridtorrentdata.pas"/>
-        <IsPartOfProject Value="True"/>
-        <UnitName Value="controlergridtorrentdata"/>
-        <EditorIndex Value="2"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="1"/>
-        <CursorPos X="1" Y="1"/>
-        <UsageCount Value="29"/>
-        <Loaded Value="True"/>
-      </Unit58>
-      <Unit59>
-        <Filename Value="C:\lazarus\lcl\dynamicarray.pas"/>
-        <UnitName Value="DynamicArray"/>
-        <EditorIndex Value="7"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="1"/>
-        <CursorPos X="1" Y="63"/>
-        <UsageCount Value="13"/>
-        <Loaded Value="True"/>
-      </Unit59>
-    </Units>
-    <JumpHistory Count="30" HistoryIndex="29">
-      <Position1>
-        <Filename Value="main.pas"/>
-        <Caret Line="116" Column="29" TopLine="32"/>
-      </Position1>
-      <Position2>
-        <Filename Value="main.pas"/>
-        <Caret Line="1248" Column="82" TopLine="1192"/>
-      </Position2>
-      <Position3>
-        <Filename Value="main.pas"/>
-        <Caret Line="1256" Column="43" TopLine="1192"/>
-      </Position3>
-      <Position4>
-        <Filename Value="controlergridtorrentdata.pas"/>
-        <Caret Line="108" Column="1" TopLine="55"/>
-      </Position4>
-      <Position5>
-        <Filename Value="C:\lazarus\lcl\grids.pas"/>
-        <Caret Line="2337" Column="1" TopLine="2284"/>
-      </Position5>
-      <Position6>
-        <Filename Value="C:\lazarus\lcl\grids.pas"/>
-        <Caret Line="2338" Column="1" TopLine="2284"/>
-      </Position6>
-      <Position7>
-        <Filename Value="controlergridtorrentdata.pas"/>
-        <Caret Line="112" Column="1" TopLine="55"/>
-      </Position7>
-      <Position8>
-        <Filename Value="main.pas"/>
-        <Caret Line="1251" Column="62" TopLine="1192"/>
-      </Position8>
-      <Position9>
-        <Filename Value="main.pas"/>
-        <Caret Line="1255" Column="51" TopLine="1192"/>
-      </Position9>
-      <Position10>
-        <Filename Value="controlergridtorrentdata.pas"/>
-        <Caret Line="108" Column="1" TopLine="55"/>
-      </Position10>
-      <Position11>
-        <Filename Value="C:\lazarus\lcl\grids.pas"/>
-        <Caret Line="2337" Column="1" TopLine="2284"/>
-      </Position11>
-      <Position12>
-        <Filename Value="C:\lazarus\lcl\grids.pas"/>
-        <Caret Line="2338" Column="1" TopLine="2284"/>
-      </Position12>
-      <Position13>
-        <Filename Value="controlergridtorrentdata.pas"/>
-        <Caret Line="108" Column="55" TopLine="55"/>
-      </Position13>
-      <Position14>
-        <Filename Value="main.pas"/>
-        <Caret Line="1256" Column="66" TopLine="1192"/>
-      </Position14>
-      <Position15>
-        <Filename Value="controlergridtorrentdata.pas"/>
-        <Caret Line="108" Column="1" TopLine="55"/>
-      </Position15>
-      <Position16>
-        <Filename Value="C:\lazarus\lcl\grids.pas"/>
-        <Caret Line="4984" Column="1" TopLine="4931"/>
-      </Position16>
-      <Position17>
-        <Filename Value="C:\lazarus\lcl\grids.pas"/>
-        <Caret Line="4985" Column="1" TopLine="4931"/>
-      </Position17>
-      <Position18>
-        <Filename Value="controlergridtorrentdata.pas"/>
-        <Caret Line="110" Column="1" TopLine="55"/>
-      </Position18>
-      <Position19>
-        <Filename Value="C:\lazarus\lcl\grids.pas"/>
-        <Caret Line="4984" Column="1" TopLine="4931"/>
-      </Position19>
-      <Position20>
-        <Filename Value="C:\lazarus\lcl\grids.pas"/>
-        <Caret Line="4985" Column="1" TopLine="4931"/>
-      </Position20>
-      <Position21>
-        <Filename Value="C:\lazarus\lcl\grids.pas"/>
-        <Caret Line="11510" Column="1" TopLine="11457"/>
-      </Position21>
-      <Position22>
-        <Filename Value="C:\lazarus\lcl\grids.pas"/>
-        <Caret Line="11511" Column="1" TopLine="11457"/>
-      </Position22>
-      <Position23>
-        <Filename Value="C:\lazarus\lcl\grids.pas"/>
-        <Caret Line="10851" Column="1" TopLine="10798"/>
-      </Position23>
-      <Position24>
-        <Filename Value="C:\lazarus\lcl\grids.pas"/>
-        <Caret Line="10854" Column="1" TopLine="10798"/>
-      </Position24>
-      <Position25>
-        <Filename Value="controlergridtorrentdata.pas"/>
-        <Caret Line="95" Column="68" TopLine="55"/>
-      </Position25>
-      <Position26>
-        <Filename Value="controlergridtorrentdata.pas"/>
-        <Caret Line="109" Column="73" TopLine="37"/>
-      </Position26>
-      <Position27>
-        <Filename Value="controlergridtorrentdata.pas"/>
-        <Caret Line="1" Column="1" TopLine="1"/>
-      </Position27>
-      <Position28>
-        <Filename Value="controlergridtorrentdata.pas"/>
-        <Caret Line="108" Column="73" TopLine="9"/>
-      </Position28>
-      <Position29>
-        <Filename Value="controlergridtorrentdata.pas"/>
-        <Caret Line="107" Column="72" TopLine="94"/>
-      </Position29>
-      <Position30>
-        <Filename Value="controlergridtorrentdata.pas"/>
-        <Caret Line="1" Column="1" TopLine="1"/>
-      </Position30>
-    </JumpHistory>
-  </ProjectOptions>
-  <CompilerOptions>
-    <Version Value="11"/>
-    <PathDelim Value="\"/>
-    <Target>
-      <Filename Value="..\executable\trackereditor"/>
-    </Target>
-    <SearchPaths>
-      <IncludeFiles Value="$(ProjOutDir)"/>
-      <UnitOutputDirectory Value="..\lib\$(TargetCPU)-$(TargetOS)"/>
-    </SearchPaths>
-    <CodeGeneration>
-      <SmartLinkUnit Value="True"/>
-    </CodeGeneration>
-    <Linking>
-      <Debugging>
-        <GenerateDebugInfo Value="False"/>
-        <UseLineInfoUnit Value="False"/>
-        <StripSymbols Value="True"/>
-      </Debugging>
-      <LinkSmart Value="True"/>
-      <Options>
-        <Win32>
-          <GraphicApplication Value="True"/>
-        </Win32>
-      </Options>
-    </Linking>
-    <Other>
-      <CompilerMessages>
-        <UseMsgFile Value="True"/>
-      </CompilerMessages>
-      <CompilerPath Value="$(CompPath)"/>
-    </Other>
-  </CompilerOptions>
-  <Debugging>
-    <Exceptions Count="3">
-      <Item1>
-        <Name Value="EAbort"/>
-      </Item1>
-      <Item2>
-        <Name Value="ECodetoolError"/>
-      </Item2>
-      <Item3>
-        <Name Value="EFOpenError"/>
-      </Item3>
-    </Exceptions>
-  </Debugging>
-  <EditorMacros Count="0"/>
-</CONFIG>
diff --git a/submodule/dcpcrypt b/submodule/dcpcrypt
new file mode 160000
index 0000000..14586ed
--- /dev/null
+++ b/submodule/dcpcrypt
@@ -0,0 +1 @@
+Subproject commit 14586ed66d15fd91530ed5dfaab8a8e4bb8959ff
diff --git a/test_torrent/Sintel.2010.2K.SURROUND.x264-VODO.torrent b/test_torrent/Sintel.2010.2K.SURROUND.x264-VODO.torrent
new file mode 100644
index 0000000..06b1573
Binary files /dev/null and b/test_torrent/Sintel.2010.2K.SURROUND.x264-VODO.torrent differ
diff --git a/test_torrent/Sintel.2010.2K.Theora.Ogv-VODO.torrent b/test_torrent/Sintel.2010.2K.Theora.Ogv-VODO.torrent
new file mode 100644
index 0000000..bac714d
Binary files /dev/null and b/test_torrent/Sintel.2010.2K.Theora.Ogv-VODO.torrent differ
diff --git a/test_torrent/Sintel.2010.720p.SURROUND.x264-VODO.torrent b/test_torrent/Sintel.2010.720p.SURROUND.x264-VODO.torrent
new file mode 100644
index 0000000..c499c9f
Binary files /dev/null and b/test_torrent/Sintel.2010.720p.SURROUND.x264-VODO.torrent differ
diff --git a/test_torrent/bittorrent-v2-hybrid-test.torrent b/test_torrent/bittorrent-v2-hybrid-test.torrent
new file mode 100644
index 0000000..9a5c876
Binary files /dev/null and b/test_torrent/bittorrent-v2-hybrid-test.torrent differ
diff --git a/test_torrent/bittorrent-v2-test.torrent b/test_torrent/bittorrent-v2-test.torrent
new file mode 100644
index 0000000..8ad4c7e
Binary files /dev/null and b/test_torrent/bittorrent-v2-test.torrent differ
diff --git a/version.txt b/version.txt
deleted file mode 100644
index 3487df0..0000000
--- a/version.txt
+++ /dev/null
@@ -1,38 +0,0 @@
------- Version 1.31
-ADD: tab page 'Files/Trackers/Info' show how many files count in one torrent
-ADD: tab page 'Files/Trackers/Info' show how many trackers count in one torrent
-ADD: Edit comment in data/info grid column.
-FIX: The data/info column can be moved but it is not updated correctly when
-torrent is reloaded.
-
------- Version 1.30
-ADD: Tab page Files/trackers/info
-ADD: Optional start program from console. (See readme.txt file)
-ADD: remove_trackers.txt will remove specific trackers form torrent.
-ADD: export_trackers.txt is created after updating the torrent.
-ADD: drag and drop of trackers file (with '*.txt' file extension)
-Fix: tab page Data/info 'Total size' sort functionality.
-Fix: tab page Data/info 'Piece Length' sort functionality.
-Fix: tab page Data/info 'info hash' must be upper-case. 
-FIX: issue 4 + 5 (see website)
-Compiler Lazarus: v1.24
-
------- Version 1.21
-FIX: Support Unicode in filename. (Chinese etc.)
-Compiler Lazarus: v1.0.12
-
------- Version 1.20
-ADD: torrent Data/info tabpage
-ADD: Drag and drop of torrent files or folder.
-Compiler Lazarus: v1.0.10
-
------- Version 1.10 (2013-0510)
-ADD: tabpage for public/private torrent
-ADD: Tracker List can be loaded from file
-Add: add_trackers.txt
-FIX: issue 1 (see website)
-Compiler Lazarus: v1.0.8
-
------- Version 1.00 (2012-0303)
-First release
-Compiler Lazarus: v0.9.30