feature: add menu link to newTrackon site

newTrackon trackers is being used in this program.
User should have direct link to the website for the status of the trackers.

[ci skip]

Author: GerryFerdinandus

source/code/main.lfm

@@ -356,13 +356,20 @@ object FormTrackerModify: TFormTrackerModify
     object MenuHelp: TMenuItem
       Caption = '&Help'
       object MenuHelpVisitWebsite: TMenuItem
-        Caption = '&Visit website'
+        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 newTrackon'
+        OnClick = MenuHelpVisitNewTrackonClick
+      end
     end
   end
 end

source/code/main.pas

@@ -39,6 +39,8 @@   TFormTrackerModify = class(TForm)
     MenuFileTorrentFolder: TMenuItem;
     MenuFileOpenTrackerList: TMenuItem;
     MenuHelpReportingIssue: TMenuItem;
+    MenuHelpSeperator1: TMenuItem;
+    MenuHelpVisitNewTrackon: TMenuItem;
     MenuItemOnlineCheckSubmitNewTrackon: TMenuItem;
     MenuItemOnlineCheckAppendStableTrackers: TMenuItem;
     MenuTrackersDeleteDeadTrackers: TMenuItem;
@@ -88,6 +90,7 @@   TFormTrackerModify = class(TForm)
     //At start of the program the form will be show/hide
     procedure FormShow(Sender: TObject);
     procedure MenuHelpReportingIssueClick(Sender: TObject);
+    procedure MenuHelpVisitNewTrackonClick(Sender: TObject);
     procedure MenuHelpVisitWebsiteClick(Sender: TObject);
     procedure MenuItemOnlineCheckSubmitNewTrackonClick(Sender: TObject);
 
@@ -1183,6 +1186,13 @@ procedure TFormTrackerModify.MenuHelpReportingIssueClick(Sender: TObject);
   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;