fix: Issue GerryFerdinandus#20 support ws:// and wss://

Just add these 2 items in the URL check

Author: GerryFerdinandus

source/code/main.pas

@@ -1075,8 +1075,9 @@ 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('ws://', TrackerURL) = 1) or (Pos('wss://', TrackerURL) = 1)
+  or (Pos('udp://', TrackerURL) = 1);
 end;
 
 function TFormTrackerModify.CopyUserInputNewTrackersToList: boolean;