Hide compiler build message 'Parameter is not used'

Author: GerryFerdinandus2

source/controlergridtorrentdata.pas

@@ -39,7 +39,7 @@   TControlerGridTorrentData = class
 
     FRowIsMovedNeedUpdate: boolean;
     procedure StringGridTorrentDataColRowMoved(Sender: TObject;
-      IsColumn: boolean; sIndex, tIndex: integer);
+      {%H-}IsColumn: boolean; {%H-}sIndex, {%H-}tIndex: integer);
     procedure AddColumn(var GridColumn: TGridColumn; index: integer);
     procedure UpdateColumnTag;
     procedure WriteCell(GridColumn: TGridColumn; const Str: UTF8String);

source/main.pas

@@ -1430,15 +1430,18 @@ procedure TFormTrackerModify.ViewUpdateEnd;
 end;
 
 procedure TFormTrackerModify.ViewUpdateFormCaption;
-var
-  ProcessTimeStr: string;
-  Hour, Minute, Second, MilliSecond: word;
+//var
+  //ProcessTimeStr: string;
+//  Hour, Minute, Second, MilliSecond: word;
 begin
-  //Show user how many files are loaded
+  //Called when user load the torrent + update the torrent.
+
+{ //for performance debugging.
   DecodeTime(FProcessTimeTotal, Hour, Minute, Second, MilliSecond);
   ProcessTimeStr := IntToStr((Second * 1000) + MilliSecond) + ' mSec';
+}
 
-  //Called when user load the torrent + update the torrent.
+  //Show user how many files are loaded
   Caption := FORM_CAPTION + '( Torrent files: ' +
     IntToStr(FTorrentFileNameList.Count) + ' )';
   //  + ' (Process Time: ' +  ProcessTimeStr + ' )'; //for debug purpose.