fix: Randomize must be called one time

My calling every time for each torrent it
give not the correct random result.

[ci skip]

Author: GerryFerdinandus

source/code/main.pas

@@ -173,7 +173,6 @@   TFormTrackerModify = class(TForm)
     function DecodeTorrentFile(const FileName: UTF8String): boolean;
     procedure UpdateTrackerInsideFileList;
     procedure UpdateTorrentTrackerList;
-    //procedure CombineFiveTrackerListToOne(TrackerListOrder: TTrackerListOrder);
     procedure ShowTrackerInsideFileList;
 
     procedure CheckedOnOffAllTrackers(Value: boolean);
@@ -599,6 +598,11 @@ procedure TFormTrackerModify.UpdateTorrent;
     //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

source/code/torrent_miscellaneous.pas

@@ -183,7 +183,6 @@ procedure RandomizeTrackerList(StringList: TStringList);
   //The order of the string list must be randomize
   if StringList.Count > 1 then
   begin
-    Randomize;
     for i := 0 to StringList.Count - 1 do
     begin
       StringList.Exchange(i, Random(StringList.Count));