diff --git a/source/decodetorrent.pas b/source/decodetorrent.pas
index e34be6f..c1ed5c5 100644
--- a/source/decodetorrent.pas
+++ b/source/decodetorrent.pas
@@ -47,7 +47,7 @@   TDecodeTorrent = class
     FTotalFileSize: int64;
 
     //Torrent file must have 'info' item.
-    FBEncoded_Info:TBEncoded;
+    FBEncoded_Info: TBEncoded;
     FBEncoded_Comment: TBEncoded;
 
     FInfoHash: utf8string;
@@ -149,10 +149,12 @@ constructor TDecodeTorrent.Create;
   //Every torrent have
   FObjectListFileNameAndLength := TObjectList.Create;
 
-
+  //List for all the trackers.
   TrackerList := TStringList.Create;
   TrackerList.Duplicates := dupIgnore;
-  TrackerList.Sorted := True;
+  //Must keep the original order.
+  TrackerList.Sorted := False;
+
   FMemoryStream := TMemoryStream.Create;
 
 end;
@@ -207,32 +209,42 @@ 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'
+    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
+    //process 'announce-list'
+    TempBEncoded := FBEncoded.ListData.FindElement('announce-list');
+    if assigned(TempBEncoded) then
+    begin
+      Count := TempBEncoded.ListData.Count;
+      if Count > 0 then
       begin
-        Count := TempBEncoded.ListData.Count;
-        if Count > 0 then
+        for i := 0 to Count - 1 do
         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);
+          //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;
@@ -242,7 +254,7 @@ function TDecodeTorrent.GetAnnounceList: boolean;
 function TDecodeTorrent.GetFileList: boolean;
 var
   //TempBEncodedInfo,
-    TempBEncodedInfoFiles, TempBEncodedInfoFilesPath: TBEncoded;
+  TempBEncodedInfoFiles, TempBEncodedInfoFilesPath: TBEncoded;
   TempBEncodedInfoFilesData: TBEncodedData;
 
   i, x, countFiles, countPath: integer;
@@ -262,60 +274,60 @@ function TDecodeTorrent.GetFileList: boolean;
   try
 
     {find 'info.files' }
-      TempBEncodedInfoFiles := FBEncoded_Info.ListData.FindElement('files');
+    TempBEncodedInfoFiles := FBEncoded_Info.ListData.FindElement('files');
 
-      if assigned(TempBEncodedInfoFiles) then
-      begin //'info.files' found
-        countFiles := TempBEncodedInfoFiles.ListData.Count;
-        if countFiles > 0 then
+    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
-          for i := 0 to countFiles - 1 do
+          //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
-            //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);
+            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
-      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;
+      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;
 
-        DecodeTorrentFileName := TDecodeTorrentFileNameAndLength.Create;
-        DecodeTorrentFileName.Filename := Filename;
-        DecodeTorrentFileName.FileLength := FileLength;
-        FObjectListFileNameAndLength.Add(DecodeTorrentFileName);
+      FileLength := FBEncoded_Info.ListData.FindElement('length').IntegerData;
 
+      DecodeTorrentFileName := TDecodeTorrentFileNameAndLength.Create;
+      DecodeTorrentFileName.Filename := Filename;
+      DecodeTorrentFileName.FileLength := FileLength;
+      FObjectListFileNameAndLength.Add(DecodeTorrentFileName);
 
-        Inc(FTotalFileSize, FileLength);
-      end;
+
+      Inc(FTotalFileSize, FileLength);
+    end;
 
 
 
@@ -358,12 +370,12 @@ function TDecodeTorrent.DecodeTorrent: boolean;
 
     //torrent file MUST begin with befDictionary.
     if FBEncoded.Format <> befDictionary then
-        exit; //error
+      exit; //error
 
     //torrent MUST have 'info'
     FBEncoded_Info := FBEncoded.ListData.FindElement('info');
     if not assigned(FBEncoded_Info) then
-       exit; //error
+      exit; //error
 
 
     //Accept torrent only when there is no issue in reading AnnounceList and file list
@@ -372,13 +384,13 @@ function TDecodeTorrent.DecodeTorrent: boolean;
       Result := True;
     end;
 
-      FInfoHash := GetInfoHash;
-      FCreatedBy := GetCreatedBy;
-      FCreatedDate := GetCreatedDate;
-      FComment := GetComment;
-      FName := GetName;
-      FPieceLenght := GetPieceLenght;
-      FPrivateTorrent:=GetPrivateTorrent;
+    FInfoHash := GetInfoHash;
+    FCreatedBy := GetCreatedBy;
+    FCreatedDate := GetCreatedDate;
+    FComment := GetComment;
+    FName := GetName;
+    FPieceLenght := GetPieceLenght;
+    FPrivateTorrent := GetPrivateTorrent;
 
   except
   end;
@@ -417,11 +429,12 @@ function TDecodeTorrent.GetPrivateTorrent: boolean;
 
 procedure TDecodeTorrent.SetComment(const AValue: utf8string);
 var
-//  Encoded: TBEncoded;
+  //  Encoded: TBEncoded;
   Data: TBEncodedData;
 begin
-  if FComment=AValue then Exit;
-  FComment:=AValue;
+  if FComment = AValue then
+    Exit;
+  FComment := AValue;
   try
     //if empty comment then remove the element.
     if FComment = '' then
@@ -477,18 +490,18 @@ procedure TDecodeTorrent.RemovePrivateTorrentFlag;
 
 procedure TDecodeTorrent.AddPrivateTorrentFlag;
 var
-   Encoded: TBEncoded;
+  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.
+    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
@@ -498,7 +511,7 @@ procedure TDecodeTorrent.AddPrivateTorrentFlag;
 procedure TDecodeTorrent.RemoveAnnounce;
 begin
   try
-      FBEncoded.ListData.RemoveElement('announce');
+    FBEncoded.ListData.RemoveElement('announce');
   except
   end;
 end;
@@ -506,7 +519,7 @@ procedure TDecodeTorrent.RemoveAnnounce;
 procedure TDecodeTorrent.RemoveAnnounceList;
 begin
   try
-      FBEncoded.ListData.RemoveElement('announce-list');
+    FBEncoded.ListData.RemoveElement('announce-list');
   except
   end;
 end;
@@ -542,13 +555,13 @@ procedure TDecodeTorrent.ChangeAnnounce(const TrackerURL: utf8string);
 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.
+    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;
@@ -556,47 +569,45 @@ procedure TDecodeTorrent.ChangeAnnounce(const TrackerURL: utf8string);
 procedure TDecodeTorrent.ChangeAnnounceList(StringList: TStringList);
 var
   EncodedListRoot, EncodedList, EncodedString: TBEncoded;
-  Data, Data2, DataRootBEncodedData: TBEncodedData;
+  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;
+    //Create the 'announce-list'
+    EncodedListRoot := TBEncoded.Create;
+    EncodedListRoot.Format := befList;
+    DataRootBEncodedData := TBEncodedData.Create(EncodedListRoot);
+    DataRootBEncodedData.Header := 'announce-list';
+    FBEncoded.ListData.Add(DataRootBEncodedData); //root
 
-      FBEncoded.ListData.Sort(@sort_);//text must be in alfabetical order.
+    //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
   end;
 end;
@@ -606,8 +617,8 @@ function TDecodeTorrent.GetInfoHash: utf8string;
   Result := '';
   try
     //The info.value will be hash with SHA1
-      TBEncoded.Encode(FBEncoded_Info, Result);
-      Result := UpperCase(  SHA1Print(SHA1String(Result)));
+    TBEncoded.Encode(FBEncoded_Info, Result);
+    Result := UpperCase(SHA1Print(SHA1String(Result)));
   except
   end;
 end;
@@ -618,9 +629,9 @@ function TDecodeTorrent.GetCreatedBy: utf8string;
 begin
   Result := '';
   try
-      TempBEncoded := FBEncoded.ListData.FindElement('created by');
-      if assigned(TempBEncoded) then
-        Result := TempBEncoded.StringData;
+    TempBEncoded := FBEncoded.ListData.FindElement('created by');
+    if assigned(TempBEncoded) then
+      Result := TempBEncoded.StringData;
 
   except
   end;
@@ -632,9 +643,9 @@ function TDecodeTorrent.GetCreatedDate: TDateTime;
 begin
   Result := 0; //Some torrent have no creation date
   try
-      TempBEncoded := FBEncoded.ListData.FindElement('creation date');
-      if assigned(TempBEncoded) then
-        Result := UnixToDateTime(TempBEncoded.IntegerData);
+    TempBEncoded := FBEncoded.ListData.FindElement('creation date');
+    if assigned(TempBEncoded) then
+      Result := UnixToDateTime(TempBEncoded.IntegerData);
   except
   end;
 end;
@@ -643,9 +654,9 @@ function TDecodeTorrent.GetComment: utf8string;
 begin
   Result := '';
   try
-      FBEncoded_Comment := FBEncoded.ListData.FindElement('comment');
-      if assigned(FBEncoded_Comment) then
-        Result := UTF8Trim( FBEncoded_Comment.StringData);
+    FBEncoded_Comment := FBEncoded.ListData.FindElement('comment');
+    if assigned(FBEncoded_Comment) then
+      Result := UTF8Trim(FBEncoded_Comment.StringData);
   except
   end;
 end;
@@ -657,7 +668,7 @@ function TDecodeTorrent.GetName: utf8string;
   Result := '';
   try
     {find 'name' }
-    TempBEncoded :=  FBEncoded_Info.ListData.FindElement('name');
+    TempBEncoded := FBEncoded_Info.ListData.FindElement('name');
     if assigned(TempBEncoded) then
       Result := TempBEncoded.StringData;
   except
diff --git a/source/main.lfm b/source/main.lfm
index 9cb2541..4949e56 100644
--- a/source/main.lfm
+++ b/source/main.lfm
@@ -1,7 +1,7 @@
 object FormTrackerModify: TFormTrackerModify
-  Left = 635
+  Left = 743
   Height = 607
-  Top = 177
+  Top = 103
   Width = 1179
   AllowDropFiles = True
   Caption = 'Bittorrent Tracker Editor'
@@ -16,7 +16,7 @@ object FormTrackerModify: TFormTrackerModify
   OnDropFiles = FormDropFiles
   OnShow = FormShow
   Position = poScreenCenter
-  LCLVersion = '1.2.6.0'
+  LCLVersion = '1.4.2.0'
   object PageControl: TPageControl
     Left = 0
     Height = 587
@@ -301,7 +301,18 @@ object FormTrackerModify: TFormTrackerModify
     object MenuUpdateTorrent: TMenuItem
       Caption = '&Update torrent'
       Hint = 'Update the torrent files'
-      OnClick = MenuUpdateTorrentClick
+      object MenuUpdateTorrentAddBefore: TMenuItem
+        Caption = 'Add new trackers &Before original trackers (new trackers + original trackers)'
+        OnClick = MenuUpdateTorrentAddBeforeClick
+      end
+      object MenuUpdateTorrentAddAfter: TMenuItem
+        Caption = 'Add new trackers &After original trackers (original trackers + new trackers)'
+        OnClick = MenuUpdateTorrentAddAfterClick
+      end
+      object MenuUpdateTorrentSort: TMenuItem
+        Caption = '&Sort the trackers by name.'
+        OnClick = MenuUpdateTorrentSortClick
+      end
     end
     object MenuHelp: TMenuItem
       Caption = '&Help'
diff --git a/source/main.pas b/source/main.pas
index 7972d9e..5388fc4 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -22,6 +22,10 @@ interface
 
 type
 
+  //Updated torrent file trackers list order.
+  TTrackerListOrder = (tloInsertBefore, tloAppendAfter, tloSort);
+
+
   { TFormTrackerModify }
 
   TFormTrackerModify = class(TForm)
@@ -37,6 +41,9 @@   TFormTrackerModify = class(TForm)
     MenuFileTorrentFolder: TMenuItem;
     MenuFileOpenTrackerList: TMenuItem;
     MenuHelpReportingIssue: TMenuItem;
+    MenuUpdateTorrentSort: TMenuItem;
+    MenuUpdateTorrentAddAfter: TMenuItem;
+    MenuUpdateTorrentAddBefore: TMenuItem;
     MenuItemTorrentFilesTreeHideAll: TMenuItem;
     MenuItemTorrentFilesTreeShowTrackers: TMenuItem;
     MenuItemTorrentFilesTreeShowInfo: TMenuItem;
@@ -92,7 +99,9 @@   TFormTrackerModify = class(TForm)
     procedure MenuTrackersKeepOrDeleteAllTrackersClick(Sender: TObject);
 
     //Menu update torrent
-    procedure MenuUpdateTorrentClick(Sender: TObject);
+    procedure MenuUpdateTorrentAddAfterClick(Sender: TObject);
+    procedure MenuUpdateTorrentAddBeforeClick(Sender: TObject);
+    procedure MenuUpdateTorrentSortClick(Sender: TObject);
 
   private
     { private declarations }
@@ -100,6 +109,8 @@   TFormTrackerModify = class(TForm)
     FTrackerAddedByUserList, //Trackers that we want too add.
     FTrackerBanByUserList, //trackers that must not be present inside torrent.
     FTrackerFromInsideTorrentFilesList, //Trackers that are already inside the torrent.
+    FTrackerDeselectedByUserList, //trackers that must not be present inside torrent.
+
     FTorrentFileNameList,// All the torrent files that must be updated
     FLogStringList //Log string text output
     : TStringList;
@@ -107,6 +118,10 @@   TFormTrackerModify = class(TForm)
     FConcoleMode, //user have start the program in console mode
     FFilePresentBanByUserList//There is a file 'remove_trackers.txt' detected
     : boolean;
+
+    //The new trackers list order
+    FTrackerListOrderForUpdatedTorrent: TTrackerListOrder;
+
     FLogFile, FTrackerFile: TextFile;
     FTotalFileInsideTorrent: integer;
     FTotalFileSizeInsideTorrent: int64;
@@ -114,6 +129,10 @@   TFormTrackerModify = class(TForm)
     FTreeNodeRoot: TTreeNode;
     FControlerGridTorrentData: TControlerGridTorrentData;
 
+    procedure RemoveTrackersFromList(RemoveList, UpdatedList: TStringList);
+    procedure UpdateTorrent;
+    procedure AddButIngnoreDuplicates(StringList: TStringList; const Str: UTF8String);
+
     function ByteSizeToBiggerSizeFormatStr(ByteSize: int64): string;
 
     procedure ShowHourGlassCursor(HourGlass: boolean);
@@ -136,7 +155,8 @@   TFormTrackerModify = class(TForm)
     function DecodeTorrentFile(const FileName: UTF8String): boolean;
     procedure UpdateTrackerInsideFileList;
     procedure UpdateTorrentTrackerList;
-    procedure CombineThreeTrackerListToOne;
+    procedure CombineFourTrackerListToOne;
+    procedure CombineFiveTrackerListToOne(TrackerListOrder: TTrackerListOrder);
     procedure ShowTrackerInsideFileList;
 
     procedure CheckedOnOffAllTrackers(Value: boolean);
@@ -206,25 +226,30 @@ procedure TFormTrackerModify.FormCreate(Sender: TObject);
   FTrackerBanByUserList.Duplicates := dupIgnore;
   FTrackerBanByUserList.Sorted := False;
 
+  //Create deselect tracker list where the user select via user interface checkbox
+  FTrackerDeselectedByUserList := TStringList.Create;
+  FTrackerDeselectedByUserList.Duplicates := dupIgnore;
+  FTrackerDeselectedByUserList.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.
+  //Trackers List added by user must keep in the same order.
+  FTrackerAddedByUserList.Sorted := False;
+
   //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.
+  //Must be sorted. is visible to user. In tracker list tab page.
   FTrackerFromInsideTorrentFilesList.Sorted := True;
 
-  //Create tracker list that combine FTrackerFromInsideTorrentFilesList + FTrackerAddedByUserList together.
+  //Create tracker list that combine all other together.
   FTrackerFinalList := TStringList.Create;
   FTrackerFinalList.Duplicates := dupIgnore;
-
-  //must be sorted. because we want to insert it in torrent files.
-  FTrackerFinalList.Sorted := True;
+  //must NOT be sorted. Must keep the original order intact.
+  FTrackerFinalList.Sorted := False;
 
 
   //Decoding class for torrent.
@@ -257,6 +282,7 @@ procedure TFormTrackerModify.FormDestroy(Sender: TObject);
   FTrackerFromInsideTorrentFilesList.Free;
   FTorrentFileNameList.Free;
   FControlerGridTorrentData.Free;
+  FTrackerDeselectedByUserList.Free;
 end;
 
 procedure TFormTrackerModify.MenuFileTorrentFolderClick(Sender: TObject);
@@ -344,8 +370,10 @@ procedure TFormTrackerModify.MenuItemTorrentFilesTreeShowOrHideItemClick(
 
   //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
@@ -361,14 +389,13 @@ procedure TFormTrackerModify.MenuItemTorrentFilesTreeShowOrHideItemClick(
   end;
 end;
 
-
-procedure TFormTrackerModify.MenuUpdateTorrentClick(Sender: TObject);
+procedure TFormTrackerModify.UpdateTorrent;
 var
   Reply, BoxStyle, i, CountTrackers: integer;
   PopUpMenuStr: string;
 
 begin
-  //Update the all the torrent files.
+  //Update all the torrent files.
 
   //The StringGridTorrentData where the comment are place by user
   //    must be in sync again with FTorrentFileNameList.
@@ -420,10 +447,19 @@ procedure TFormTrackerModify.MenuUpdateTorrentClick(Sender: TObject);
     //There are 3 list that must be combine
     //FTrackerFinalList := FTrackerAddedByUserList + FTrackerFromInsideTorrentFilesList
     // - FTrackerBanByUserList
-    CombineThreeTrackerListToOne;
+    CombineFourTrackerListToOne;
+
+    //for tloSort we only need to update the list one time for all the torrent files.
+    if FTrackerListOrderForUpdatedTorrent = tloSort then
+    begin
+      FTrackerFinalList.Sort;
+    end;
+
+    //How many trackers must be put inside each torrent file.
+    CountTrackers := FTrackerFinalList.Count;
 
     //In console mode we can ignore this warning
-    if not FConcoleMode and (FTrackerFinalList.Count = 0) then
+    if not FConcoleMode 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(
@@ -438,9 +474,6 @@ procedure TFormTrackerModify.MenuUpdateTorrentClick(Sender: TObject);
       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
@@ -450,6 +483,17 @@ procedure TFormTrackerModify.MenuUpdateTorrentClick(Sender: TObject);
       if not FDecodePresentTorrent.DecodeTorrent(FTorrentFileNameList[i]) then
         Continue;
 
+      //tloInsertBefore and tloAppendAfter need the list be updated or each torrent file.
+      if (FTrackerListOrderForUpdatedTorrent = tloInsertBefore) or
+        (FTrackerListOrderForUpdatedTorrent = tloAppendAfter) then
+      begin
+        //Add the new tracker before of after the original trackers inside the torrent.
+        CombineFiveTrackerListToOne(FTrackerListOrderForUpdatedTorrent);
+
+        //How many trackers must be put inside each torrent file
+        CountTrackers := FTrackerFinalList.Count;
+      end;
+
       case CountTrackers of
         0://if no tracker selected then delete 'announce' and 'announce-list'
         begin
@@ -470,8 +514,6 @@ procedure TFormTrackerModify.MenuUpdateTorrentClick(Sender: TObject);
         end;
       end;
 
-
-
       //update the torrent public/private flag
       if CheckListBoxPublicPrivateTorrent.Checked[i] then
       begin
@@ -524,6 +566,25 @@ procedure TFormTrackerModify.MenuUpdateTorrentClick(Sender: TObject);
 
 end;
 
+procedure TFormTrackerModify.AddButIngnoreDuplicates(StringList: TStringList;
+  const Str: UTF8String);
+begin
+  //Stringlist that are not sorted must use IndexOf to ignore Duplicates.
+  if not StringList.Sorted then
+  begin
+    if StringList.IndexOf(Str) < 0 then
+    begin
+      StringList.add(Str);
+    end;
+  end
+  else
+  begin
+    StringList.add(Str);
+  end;
+
+end;
+
+
 function TFormTrackerModify.ByteSizeToBiggerSizeFormatStr(ByteSize: int64): string;
 begin
   if ByteSize >= (1024 * 1024 * 1024) then
@@ -605,7 +666,8 @@ procedure TFormTrackerModify.ConsoleMode;
           //Some tracker must be removed. Console and windows mode.
           UpdateViewRemoveTracker;
           //update torrent
-          MenuUpdateTorrentClick(self);
+          FTrackerListOrderForUpdatedTorrent := tloSort;
+          UpdateTorrent;
         end;
       end
       else //a torrent file is selected?
@@ -625,7 +687,8 @@ procedure TFormTrackerModify.ConsoleMode;
             //Some tracker must be removed. Console and windows mode.
             UpdateViewRemoveTracker;
             //update torrent
-            MenuUpdateTorrentClick(self);
+            FTrackerListOrderForUpdatedTorrent := tloSort;
+            UpdateTorrent;
           finally
             StringList.Free;
           end;
@@ -719,7 +782,7 @@ procedure TFormTrackerModify.UpdateTorrentTrackerList;
 begin
   //Copy the trackers found in one torrent file to FTrackerFromInsideTorrentFilesList
   for TrackerStr in FDecodePresentTorrent.TrackerList do
-    FTrackerFromInsideTorrentFilesList.Add(TrackerStr);
+    AddButIngnoreDuplicates(FTrackerFromInsideTorrentFilesList, TrackerStr);
 end;
 
 procedure TFormTrackerModify.ShowTrackerInsideFileList;
@@ -754,7 +817,8 @@ procedure TFormTrackerModify.CheckedOnOffAllTrackers(Value: boolean);
 function TFormTrackerModify.ValidTrackerURL(const TrackerURL: UTF8String): boolean;
 begin
   //TrackerURL should be cleanup with UTF8trim()
-  Result := (Pos('http://', TrackerURL) = 1) or (Pos('https://', TrackerURL) = 1) or (Pos('udp://', TrackerURL) = 1);
+  Result := (Pos('http://', TrackerURL) = 1) or (Pos('https://', TrackerURL) = 1) or
+    (Pos('udp://', TrackerURL) = 1);
 end;
 
 function TFormTrackerModify.CopyUserInputNewTrackersToList: boolean;
@@ -778,7 +842,7 @@ function TFormTrackerModify.CopyUserInputNewTrackersToList: boolean;
     //All the tracker must begin with 'http(s)://' or 'udp://'
     if ValidTrackerURL(TrackerStr) then
     begin
-      FTrackerAddedByUserList.Add(TrackerStr);
+      AddButIngnoreDuplicates(FTrackerAddedByUserList, TrackerStr);
     end
     else
     begin
@@ -793,7 +857,7 @@ function TFormTrackerModify.CopyUserInputNewTrackersToList: boolean;
         Application.MessageBox(PChar(@TrackerStr[1]),
           'Error: Tracker URL must begin with http(s):// or udp://', MB_ICONERROR);
       end;
-      //dot not continue with error.
+      //do not continue with error.
       Result := False;
       exit;
     end;
@@ -808,31 +872,115 @@ function TFormTrackerModify.CopyUserInputNewTrackersToList: boolean;
 end;
 
 
-
-
-procedure TFormTrackerModify.CombineThreeTrackerListToOne;
+procedure TFormTrackerModify.CombineFourTrackerListToOne;
 var
   TrackerStr: UTF8String;
-  i: integer;
 begin
-  // FTrackerFinalList = (FTrackerAddedByUserList + FTrackerFromInsideTorrentFilesList)
-  //   - FTrackerBanByUserList
+  // FTrackerFinalList =
+  //                   (FTrackerAddedByUserList
+  //                    + FTrackerFromInsideTorrentFilesList)
+  //                    - FTrackerBanByUserList
+  //                    - FTrackerDeselectedByUserList
   FTrackerFinalList.Clear;
 
   for TrackerStr in FTrackerAddedByUserList do
-    FTrackerFinalList.Add(TrackerStr);
+    AddButIngnoreDuplicates(FTrackerFinalList, TrackerStr);
 
   for TrackerStr in FTrackerFromInsideTorrentFilesList do
-    FTrackerFinalList.Add(TrackerStr);
+    AddButIngnoreDuplicates(FTrackerFinalList, 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);
+  //Trackers from FTrackerAddedByUserList overrule the one from FTrackerDeselectedByUserList
+  RemoveTrackersFromList(FTrackerAddedByUserList, FTrackerDeselectedByUserList);
+
+  //Remove the trackers that we do not want must be the last step.
+  RemoveTrackersFromList(FTrackerBanByUserList, FTrackerFinalList);
+  RemoveTrackersFromList(FTrackerDeselectedByUserList, FTrackerFinalList);
+
+end;
+
+procedure TFormTrackerModify.CombineFiveTrackerListToOne(
+  TrackerListOrder: TTrackerListOrder);
+var
+  TrackerStr: UTF8String;
+  TrackerFromInsideOneTorrentFile: TStringList;
+begin
+  //Must keep the original order of trackers inside the torrent file.
+  //The new trackers can be added at the begin of end of the list.
+
+  // FTrackerFinalList =
+  //                   (TrackerFromInsideOneTorrentFile
+  //                   + FTrackerAddedByUserList
+  //                   + FTrackerFromInsideTorrentFilesList)
+  //                   - FTrackerBanByUserList
+  //                   - FTrackerDeselectedByUserList
+
+
+  TrackerFromInsideOneTorrentFile := TStringList.Create;
+
+  try
+    //Begin with a empty list
+    FTrackerFinalList.Clear;
+
+    //Read the trackers inside the torrent file
+    //Copy the trackers found in one torrent file to TrackerFromInsideOneTorrentFile
+    for TrackerStr in FDecodePresentTorrent.TrackerList do
+    begin
+      AddButIngnoreDuplicates(TrackerFromInsideOneTorrentFile, TrackerStr);
+    end;
+
+    //Add the new tracker list before of after the original trackers list inside the torrent file.
+    case TrackerListOrder of
+
+      tloInsertBefore:
+      begin
+        //Before
+
+        //Must be place as first FTrackerAddedByUserList
+        for TrackerStr in FTrackerAddedByUserList do
+          AddButIngnoreDuplicates(FTrackerFinalList, TrackerStr);
+
+        //original tracker list is second place
+        for TrackerStr in TrackerFromInsideOneTorrentFile do
+          AddButIngnoreDuplicates(FTrackerFinalList, TrackerStr);
+
+        //'Others' trackers added as last.
+        for TrackerStr in FTrackerFromInsideTorrentFilesList do
+          AddButIngnoreDuplicates(FTrackerFinalList, TrackerStr);
+      end;
+
+      tloAppendAfter:
+      begin
+        //After
+
+        //original tracker list must be place first.
+        for TrackerStr in TrackerFromInsideOneTorrentFile do
+          AddButIngnoreDuplicates(FTrackerFinalList, TrackerStr);
+
+        //Must be place after TrackerFromInsideOneTorrentFile
+        for TrackerStr in FTrackerAddedByUserList do
+          AddButIngnoreDuplicates(FTrackerFinalList, TrackerStr);
+
+        //'Others' trackers added as last.
+        for TrackerStr in FTrackerFromInsideTorrentFilesList do
+          AddButIngnoreDuplicates(FTrackerFinalList, TrackerStr);
+
+      end;
+
+      else
+      begin
+        Assert(True, 'case else: Should never been called. CombineFourTrackerListToOne');
+      end;
+    end;
+
+    //Trackers from FTrackerAddedByUserList overrule the one from FTrackerDeselectedByUserList
+    RemoveTrackersFromList(FTrackerAddedByUserList, FTrackerDeselectedByUserList);
+
+    //Remove the trackers that we do not want must be the last step.
+    RemoveTrackersFromList(FTrackerBanByUserList, FTrackerFinalList);
+    RemoveTrackersFromList(FTrackerDeselectedByUserList, FTrackerFinalList);
+
+  finally
+    TrackerFromInsideOneTorrentFile.Free;
   end;
 end;
 
@@ -842,12 +990,31 @@ procedure TFormTrackerModify.UpdateTrackerInsideFileList;
   i: integer;
 begin
   //Copy items from CheckListBoxTrackersList to FTrackerFromInsideTorrentFilesList
+  //Copy items from CheckListBoxTrackersList to FTrackerDeselectedByUserList
+
   FTrackerFromInsideTorrentFilesList.Clear;
-  with CheckListBoxTrackersList do
-    if Count > 0 then
-      for i := 0 to Count - 1 do
-        if Checked[i] then
-          FTrackerFromInsideTorrentFilesList.add(Items[i]);
+  FTrackerDeselectedByUserList.Clear;
+
+  if CheckListBoxTrackersList.Count > 0 then
+  begin
+    for i := 0 to CheckListBoxTrackersList.Count - 1 do
+    begin
+
+      if CheckListBoxTrackersList.Checked[i] then
+      begin
+        //Selected by user
+        AddButIngnoreDuplicates(FTrackerFromInsideTorrentFilesList,
+          CheckListBoxTrackersList.Items[i]);
+      end
+      else
+      begin
+        //Delected by user
+        AddButIngnoreDuplicates(
+          FTrackerDeselectedByUserList, CheckListBoxTrackersList.Items[i]);
+      end;
+
+    end;
+  end;
 end;
 
 procedure TFormTrackerModify.LoadTrackersTextFileAddTrackers;
@@ -983,6 +1150,43 @@ procedure TFormTrackerModify.MenuTrackersKeepOrDeleteAllTrackersClick(Sender: TO
   CheckedOnOffAllTrackers(TMenuItem(Sender).Tag = 1);
 end;
 
+procedure TFormTrackerModify.MenuUpdateTorrentAddAfterClick(Sender: TObject);
+begin
+  //User can select to add new tracker before after the original
+  FTrackerListOrderForUpdatedTorrent := tloAppendAfter;
+  UpdateTorrent;
+end;
+
+procedure TFormTrackerModify.MenuUpdateTorrentAddBeforeClick(Sender: TObject);
+begin
+  //User can select to add new tracker before after the original
+  FTrackerListOrderForUpdatedTorrent := tloInsertBefore;
+  UpdateTorrent;
+end;
+
+procedure TFormTrackerModify.MenuUpdateTorrentSortClick(Sender: TObject);
+begin
+  //User can select to add new tracker as sorted.
+  FTrackerListOrderForUpdatedTorrent := tloSort;
+  UpdateTorrent;
+end;
+
+procedure TFormTrackerModify.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;
+
 
 function TFormTrackerModify.LoadTorrentViaDir(const Dir: UTF8String): boolean;
 var
@@ -1018,9 +1222,12 @@ procedure TFormTrackerModify.FormDropFiles(Sender: TObject;
   TorrentFileNameStringList, //for the torrent files
   TrackerFileNameStringList //for the trackers files
   : TStringList;
-  TorrentFileSelectionDetected, ViewUpdateBeginActiveOneTimeOnly
+
+  TorrentFileSelectionDetected,
+
   //ViewUpdateBegin must be called one time. Keep track of it.
-  : boolean;
+  ViewUpdateBeginActiveOneTimeOnly: boolean;
+
   FileNameOrDirStr: UTF8String;
 begin
   //Drag and drop a folder or files?
@@ -1431,7 +1638,7 @@ procedure TFormTrackerModify.ViewUpdateEnd;
 
 procedure TFormTrackerModify.ViewUpdateFormCaption;
 //var
-  //ProcessTimeStr: string;
+//ProcessTimeStr: string;
 //  Hour, Minute, Second, MilliSecond: word;
 begin
   //Called when user load the torrent + update the torrent.
@@ -1460,9 +1667,6 @@ procedure TFormTrackerModify.ShowHourGlassCursor(HourGlass: boolean);
     FProcessTimeTotal := now - FProcessTimeStart;
   end;
 
-
-
-
 end;
 
 
diff --git a/source/trackereditor.lpi b/source/trackereditor.lpi
index 9e400cc..7455455 100644
--- a/source/trackereditor.lpi
+++ b/source/trackereditor.lpi
@@ -9,7 +9,6 @@
       <ResourceType Value="res"/>
       <UseXPManifest Value="True"/>
       <Icon Value="0"/>
-      <ActiveWindowIndexAtStart Value="0"/>
     </General>
     <i18n>
       <EnableI18N LFM="False"/>
@@ -35,17 +34,13 @@
         <PackageName Value="LCL"/>
       </Item1>
     </RequiredPackages>
-    <Units Count="60">
+    <Units Count="61">
       <Unit0>
         <Filename Value="trackereditor.lpr"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="trackereditor"/>
-        <EditorIndex Value="1"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="1"/>
+        <EditorIndex Value="-1"/>
         <CursorPos X="23" Y="20"/>
         <UsageCount Value="200"/>
-        <Loaded Value="True"/>
       </Unit0>
       <Unit1>
         <Filename Value="main.pas"/>
@@ -53,44 +48,38 @@
         <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"/>
+        <TopLine Value="643"/>
+        <CursorPos X="67" Y="952"/>
         <UsageCount Value="200"/>
+        <Bookmarks Count="1">
+          <Item0 Y="693"/>
+        </Bookmarks>
         <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"/>
+        <UsageCount Value="8"/>
       </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"/>
+        <UsageCount Value="8"/>
       </Unit3>
       <Unit4>
         <Filename Value="bencode.pp"/>
-        <UnitName Value="bencode"/>
-        <UsageCount Value="3"/>
+        <UsageCount Value="2"/>
       </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"/>
+        <EditorIndex Value="4"/>
+        <TopLine Value="184"/>
+        <CursorPos Y="235"/>
         <UsageCount Value="201"/>
         <Loaded Value="True"/>
       </Unit5>
@@ -98,549 +87,467 @@
         <Filename Value="decodetorrent.pas"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="DecodeTorrent"/>
-        <EditorIndex Value="12"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="369"/>
-        <CursorPos X="1" Y="451"/>
+        <EditorIndex Value="3"/>
+        <TopLine Value="568"/>
+        <CursorPos X="50" Y="606"/>
         <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"/>
+        <CursorPos Y="2000"/>
+        <UsageCount Value="9"/>
       </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"/>
+        <UsageCount Value="7"/>
       </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"/>
+        <UsageCount Value="7"/>
       </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"/>
+        <UsageCount Value="83"/>
       </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"/>
+        <UsageCount Value="13"/>
       </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"/>
+        <UsageCount Value="20"/>
       </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"/>
+        <UsageCount Value="8"/>
       </Unit13>
       <Unit14>
         <Filename Value="C:\lazarus\lcl\include\control.inc"/>
-        <EditorIndex Value="5"/>
-        <WindowIndex Value="0"/>
+        <EditorIndex Value="-1"/>
         <TopLine Value="3417"/>
         <CursorPos X="3" Y="3422"/>
-        <UsageCount Value="19"/>
-        <Loaded Value="True"/>
+        <UsageCount Value="23"/>
       </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"/>
+        <UsageCount Value="5"/>
       </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"/>
+        <UsageCount Value="78"/>
       </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"/>
+        <UsageCount Value="78"/>
       </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"/>
+        <UsageCount Value="78"/>
       </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"/>
+        <UsageCount Value="75"/>
       </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"/>
+        <UsageCount Value="19"/>
       </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"/>
+        <UsageCount Value="17"/>
       </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"/>
+        <UsageCount Value="9"/>
       </Unit22>
       <Unit23>
         <Filename Value="C:\lazarus\lcl\grids.pas"/>
         <UnitName Value="Grids"/>
-        <EditorIndex Value="6"/>
-        <WindowIndex Value="0"/>
+        <EditorIndex Value="-1"/>
         <TopLine Value="10798"/>
-        <CursorPos X="1" Y="10854"/>
-        <UsageCount Value="32"/>
-        <Loaded Value="True"/>
+        <CursorPos Y="10854"/>
+        <UsageCount Value="36"/>
       </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"/>
+        <UsageCount Value="12"/>
       </Unit24>
       <Unit25>
         <Filename Value="C:\lazarus\components\lazutils\fileutil.inc"/>
-        <WindowIndex Value="0"/>
         <TopLine Value="32"/>
-        <CursorPos X="1" Y="42"/>
-        <UsageCount Value="11"/>
+        <CursorPos Y="42"/>
+        <UsageCount Value="10"/>
       </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"/>
+        <UsageCount Value="9"/>
       </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"/>
+        <UsageCount Value="9"/>
       </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"/>
+        <UsageCount Value="9"/>
       </Unit28>
       <Unit29>
         <Filename Value="C:\lazarus\components\lazutils\winfileutil.inc"/>
-        <WindowIndex Value="0"/>
-        <TopLine Value="1"/>
-        <CursorPos X="1" Y="41"/>
-        <UsageCount Value="10"/>
+        <CursorPos Y="41"/>
+        <UsageCount Value="9"/>
       </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"/>
+        <UsageCount Value="27"/>
       </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"/>
+        <EditorIndex Value="1"/>
+        <TopLine Value="640"/>
+        <CursorPos X="14" Y="690"/>
+        <UsageCount Value="34"/>
+        <Loaded Value="True"/>
       </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"/>
+        <EditorIndex Value="2"/>
+        <TopLine Value="1369"/>
+        <CursorPos X="3" Y="1372"/>
+        <UsageCount Value="25"/>
+        <Loaded Value="True"/>
       </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"/>
+        <CursorPos Y="178"/>
+        <UsageCount Value="9"/>
       </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"/>
+        <UsageCount Value="8"/>
       </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"/>
+        <UsageCount Value="12"/>
       </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"/>
+        <UsageCount Value="12"/>
       </Unit36>
       <Unit37>
         <Filename Value="C:\lazarus\lcl\include\application.inc"/>
-        <WindowIndex Value="0"/>
         <TopLine Value="183"/>
-        <CursorPos X="1" Y="236"/>
-        <UsageCount Value="10"/>
+        <CursorPos Y="236"/>
+        <UsageCount Value="9"/>
       </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"/>
+        <UsageCount Value="9"/>
       </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"/>
+        <UsageCount Value="11"/>
       </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"/>
+        <UsageCount Value="14"/>
       </Unit40>
       <Unit41>
         <Filename Value="C:\lazarus\lcl\comctrls.pp"/>
         <UnitName Value="ComCtrls"/>
-        <EditorIndex Value="9"/>
-        <WindowIndex Value="0"/>
+        <EditorIndex Value="-1"/>
         <TopLine Value="2769"/>
         <CursorPos X="3" Y="2700"/>
-        <UsageCount Value="24"/>
-        <Loaded Value="True"/>
+        <UsageCount Value="28"/>
       </Unit41>
       <Unit42>
         <Filename Value="C:\lazarus\lcl\include\customform.inc"/>
-        <WindowIndex Value="0"/>
         <TopLine Value="2486"/>
-        <CursorPos X="1" Y="2539"/>
-        <UsageCount Value="11"/>
+        <CursorPos Y="2539"/>
+        <UsageCount Value="10"/>
       </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"/>
+        <CursorPos Y="2276"/>
+        <UsageCount Value="10"/>
       </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"/>
+        <UsageCount Value="11"/>
       </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"/>
+        <UsageCount Value="8"/>
       </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"/>
+        <EditorIndex Value="5"/>
+        <TopLine Value="787"/>
+        <CursorPos X="3" Y="790"/>
+        <UsageCount Value="16"/>
+        <Loaded Value="True"/>
       </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"/>
+        <UsageCount Value="17"/>
       </Unit47>
       <Unit48>
         <Filename Value="C:\lazarus\lcl\controls.pp"/>
         <UnitName Value="Controls"/>
-        <EditorIndex Value="3"/>
-        <WindowIndex Value="0"/>
+        <EditorIndex Value="-1"/>
         <TopLine Value="2128"/>
         <CursorPos X="15" Y="2181"/>
-        <UsageCount Value="20"/>
-        <Loaded Value="True"/>
+        <UsageCount Value="24"/>
       </Unit48>
       <Unit49>
         <Filename Value="C:\lazarus\lcl\include\wincontrol.inc"/>
-        <EditorIndex Value="4"/>
-        <WindowIndex Value="0"/>
+        <EditorIndex Value="-1"/>
         <TopLine Value="5541"/>
         <CursorPos X="3" Y="5548"/>
-        <UsageCount Value="12"/>
-        <Loaded Value="True"/>
+        <UsageCount Value="16"/>
       </Unit49>
       <Unit50>
         <Filename Value="C:\lazarus\lcl\include\customlistbox.inc"/>
-        <WindowIndex Value="0"/>
         <TopLine Value="144"/>
-        <CursorPos X="1" Y="197"/>
-        <UsageCount Value="16"/>
+        <CursorPos Y="197"/>
+        <UsageCount Value="15"/>
       </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"/>
+        <UsageCount Value="11"/>
       </Unit51>
       <Unit52>
         <Filename Value="C:\lazarus\lcl\include\treeview.inc"/>
-        <EditorIndex Value="10"/>
-        <WindowIndex Value="0"/>
+        <EditorIndex Value="-1"/>
         <TopLine Value="1227"/>
         <CursorPos X="3" Y="1229"/>
-        <UsageCount Value="21"/>
-        <Loaded Value="True"/>
+        <UsageCount Value="25"/>
       </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"/>
+        <UsageCount Value="10"/>
       </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"/>
+        <UsageCount Value="8"/>
       </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"/>
+        <UsageCount Value="11"/>
       </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"/>
+        <UsageCount Value="14"/>
       </Unit56>
       <Unit57>
         <Filename Value="C:\lazarus\lcl\maps.pp"/>
-        <UnitName Value="maps"/>
-        <EditorIndex Value="8"/>
-        <WindowIndex Value="0"/>
+        <EditorIndex Value="-1"/>
         <TopLine Value="95"/>
         <CursorPos X="3" Y="148"/>
-        <UsageCount Value="18"/>
-        <Loaded Value="True"/>
+        <UsageCount Value="22"/>
       </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"/>
+        <EditorIndex Value="-1"/>
+        <UsageCount Value="44"/>
       </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"/>
+        <EditorIndex Value="-1"/>
+        <CursorPos Y="63"/>
+        <UsageCount Value="17"/>
       </Unit59>
+      <Unit60>
+        <Filename Value="C:\lazarus\fpc\2.6.4\source\rtl\objpas\types.pp"/>
+        <EditorIndex Value="-1"/>
+        <TopLine Value="73"/>
+        <CursorPos X="3" Y="124"/>
+        <UsageCount Value="12"/>
+      </Unit60>
     </Units>
-    <JumpHistory Count="30" HistoryIndex="29">
+    <JumpHistory Count="27" HistoryIndex="23">
       <Position1>
-        <Filename Value="main.pas"/>
-        <Caret Line="116" Column="29" TopLine="32"/>
+        <Filename Value="decodetorrent.pas"/>
+        <Caret Line="620" Column="50" TopLine="548"/>
       </Position1>
       <Position2>
-        <Filename Value="main.pas"/>
-        <Caret Line="1248" Column="82" TopLine="1192"/>
+        <Filename Value="decodetorrent.pas"/>
+        <Caret Line="584" Column="66" TopLine="551"/>
       </Position2>
       <Position3>
-        <Filename Value="main.pas"/>
-        <Caret Line="1256" Column="43" TopLine="1192"/>
+        <Filename Value="decodetorrent.pas"/>
       </Position3>
       <Position4>
-        <Filename Value="controlergridtorrentdata.pas"/>
-        <Caret Line="108" Column="1" TopLine="55"/>
+        <Filename Value="decodetorrent.pas"/>
+        <Caret Line="585" Column="52" TopLine="505"/>
       </Position4>
       <Position5>
-        <Filename Value="C:\lazarus\lcl\grids.pas"/>
-        <Caret Line="2337" Column="1" TopLine="2284"/>
+        <Filename Value="decodetorrent.pas"/>
+        <Caret Line="598" Column="50" TopLine="526"/>
       </Position5>
       <Position6>
-        <Filename Value="C:\lazarus\lcl\grids.pas"/>
-        <Caret Line="2338" Column="1" TopLine="2284"/>
+        <Filename Value="decodetorrent.pas"/>
+        <Caret Line="578" Column="3" TopLine="526"/>
       </Position6>
       <Position7>
-        <Filename Value="controlergridtorrentdata.pas"/>
-        <Caret Line="112" Column="1" TopLine="55"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="471" TopLine="421"/>
       </Position7>
       <Position8>
         <Filename Value="main.pas"/>
-        <Caret Line="1251" Column="62" TopLine="1192"/>
+        <Caret Line="465" Column="43" TopLine="406"/>
       </Position8>
       <Position9>
         <Filename Value="main.pas"/>
-        <Caret Line="1255" Column="51" TopLine="1192"/>
+        <Caret Line="118" Column="5" TopLine="53"/>
       </Position9>
       <Position10>
-        <Filename Value="controlergridtorrentdata.pas"/>
-        <Caret Line="108" Column="1" TopLine="55"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="116" TopLine="68"/>
       </Position10>
       <Position11>
-        <Filename Value="C:\lazarus\lcl\grids.pas"/>
-        <Caret Line="2337" Column="1" TopLine="2284"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="155" TopLine="78"/>
       </Position11>
       <Position12>
-        <Filename Value="C:\lazarus\lcl\grids.pas"/>
-        <Caret Line="2338" Column="1" TopLine="2284"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="916" Column="10" TopLine="883"/>
       </Position12>
       <Position13>
-        <Filename Value="controlergridtorrentdata.pas"/>
-        <Caret Line="108" Column="55" TopLine="55"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="912" Column="36" TopLine="883"/>
       </Position13>
       <Position14>
         <Filename Value="main.pas"/>
-        <Caret Line="1256" Column="66" TopLine="1192"/>
+        <Caret Line="952" TopLine="883"/>
       </Position14>
       <Position15>
-        <Filename Value="controlergridtorrentdata.pas"/>
-        <Caret Line="108" Column="1" TopLine="55"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="930" Column="11" TopLine="882"/>
       </Position15>
       <Position16>
-        <Filename Value="C:\lazarus\lcl\grids.pas"/>
-        <Caret Line="4984" Column="1" TopLine="4931"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="471" Column="69" TopLine="421"/>
       </Position16>
       <Position17>
-        <Filename Value="C:\lazarus\lcl\grids.pas"/>
-        <Caret Line="4985" Column="1" TopLine="4931"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="671" Column="59" TopLine="599"/>
       </Position17>
       <Position18>
-        <Filename Value="controlergridtorrentdata.pas"/>
-        <Caret Line="110" Column="1" TopLine="55"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="1134" Column="58" TopLine="1081"/>
       </Position18>
       <Position19>
-        <Filename Value="C:\lazarus\lcl\grids.pas"/>
-        <Caret Line="4984" Column="1" TopLine="4931"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="439" Column="39" TopLine="399"/>
       </Position19>
       <Position20>
-        <Filename Value="C:\lazarus\lcl\grids.pas"/>
-        <Caret Line="4985" Column="1" TopLine="4931"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="443" Column="30" TopLine="400"/>
       </Position20>
       <Position21>
-        <Filename Value="C:\lazarus\lcl\grids.pas"/>
-        <Caret Line="11510" Column="1" TopLine="11457"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="447" Column="62" TopLine="400"/>
       </Position21>
       <Position22>
-        <Filename Value="C:\lazarus\lcl\grids.pas"/>
-        <Caret Line="11511" Column="1" TopLine="11457"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="449" Column="62" TopLine="402"/>
       </Position22>
       <Position23>
-        <Filename Value="C:\lazarus\lcl\grids.pas"/>
-        <Caret Line="10851" Column="1" TopLine="10798"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="964" Column="59" TopLine="894"/>
       </Position23>
       <Position24>
-        <Filename Value="C:\lazarus\lcl\grids.pas"/>
-        <Caret Line="10854" Column="1" TopLine="10798"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="916" Column="57" TopLine="893"/>
       </Position24>
       <Position25>
-        <Filename Value="controlergridtorrentdata.pas"/>
-        <Caret Line="95" Column="68" TopLine="55"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="110" Column="6" TopLine="65"/>
       </Position25>
       <Position26>
-        <Filename Value="controlergridtorrentdata.pas"/>
-        <Caret Line="109" Column="73" TopLine="37"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="397" Column="3" TopLine="388"/>
       </Position26>
       <Position27>
-        <Filename Value="controlergridtorrentdata.pas"/>
-        <Caret Line="1" Column="1" TopLine="1"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="1182" Column="52" TopLine="1139"/>
       </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>
@@ -658,8 +565,7 @@
     </CodeGeneration>
     <Linking>
       <Debugging>
-        <GenerateDebugInfo Value="False"/>
-        <UseLineInfoUnit Value="False"/>
+        <UseHeaptrc Value="True"/>
         <StripSymbols Value="True"/>
       </Debugging>
       <LinkSmart Value="True"/>
@@ -669,12 +575,6 @@
         </Win32>
       </Options>
     </Linking>
-    <Other>
-      <CompilerMessages>
-        <UseMsgFile Value="True"/>
-      </CompilerMessages>
-      <CompilerPath Value="$(CompPath)"/>
-    </Other>
   </CompilerOptions>
   <Debugging>
     <Exceptions Count="3">
@@ -689,5 +589,4 @@
       </Item3>
     </Exceptions>
   </Debugging>
-  <EditorMacros Count="0"/>
 </CONFIG>