fix some compiler warning

example that variable Result is not defined
or nothing inside except..end

Author: GerryFerdinandus

source/code/main.pas

@@ -1528,6 +1528,7 @@ procedure TFormTrackerModify.FormDropFiles(Sender: TObject;
           MemoNewTrackers.Append(UTF8Trim(TrackerFileNameStringList.Text));
         except
           //supress any error in loading the file
+          FileNameOrDirStr := FileNameOrDirStr;
         end;
       end;
 

source/code/ngosang_trackerslist.pas

@@ -95,6 +95,7 @@ function TngosangTrackerList.DownloadTracker(ngosang_List: Tngosang_List): TStri
 
   except
     //No OpenSSL or web server is down
+    FTRackerList[ngosang_List].Clear;
   end;
 
   Result := FTrackerList[ngosang_List];

source/code/torrent_miscellaneous.pas

@@ -246,8 +246,11 @@ function ByteSizeToBiggerSizeFormatStr(ByteSize: int64): string;
     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]);
+    Result := Format('%0.2f KiB', [ByteSize / 1024])
+  else
+    Result := '';
+
+  Result := Result + Format(' (%d Bytes)', [ByteSize]);
 end;
 
 
@@ -629,11 +632,11 @@ function ConsoleModeDecodeParameter(out FileNameOrDirStr: UTF8String;
    -U3 "path_to_folder" -SAC -SOURCE "ABC"
   }
 
+  Result := False;
   case Paramcount of
     0:
     begin
       TrackerList.LogStringList.Add('ERROR: There are no parameter detected.');
-      Result := False;
       exit;
     end;
     1:

source/code/trackerlist_online.pas

@@ -90,7 +90,10 @@ function TTrackerListOnline.TrackerListOnlineStatusToString(
     tos_dead: Result := 'Dead';
     tos_unknown: Result := 'Unknown';
     else
-      assert(True, 'Unknown TTrackerListOnlineStatus')
+      begin
+        Result := '';
+        assert(True, 'Unknown TTrackerListOnlineStatus')
+      end;
   end;
 end;