less hints

lazpaint/dialog/upreviewdialog.pas

@@ -16,7 +16,7 @@ type
     LStatus: TLabel;
     Panel1: TPanel;
     vsPreview: TBGRAVirtualScreen;
-    procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
+    procedure FormCloseQuery(Sender: TObject; var {%H-}CanClose: boolean);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
     procedure FormShow(Sender: TObject);

lazpaint/tools/utooldeformationgrid.pas

@@ -30,7 +30,7 @@ type
     function DoToolMove({%H-}toolDest: TBGRABitmap; {%H-}pt: TPoint; ptF: TPointF): Trect;
       override;
     function GetIsSelectingTool: boolean; override;
-    function DoToolUpdate(toolDest: TBGRABitmap): TRect; override;
+    function DoToolUpdate({%H-}toolDest: TBGRABitmap): TRect; override;
   public
     function ToolKeyDown(var key: Word): TRect; override;
     function ToolUp: TRect; override;

lazpaint/upython.pas

@@ -31,7 +31,7 @@ type
     function GetPythonVersionMajor: integer;
     procedure PythonError(ALine: RawByteString);
     procedure PythonOutput(ALine: RawByteString);
-    procedure PythonBusy(var ASleep: boolean);
+    procedure PythonBusy(var {%H-}ASleep: boolean);
   public
     constructor Create(APythonBin: string = DefaultPythonBin);
     procedure Run(AScriptFilename: UTF8String; APythonVersion: integer = 3);
@@ -172,7 +172,7 @@ end;
 function TPythonScript.GetPythonVersionMajor: integer;
 var
   posDot: SizeInt;
-  errPos: integer;
+  {%H-}errPos: integer;
 begin
   posDot := pos('.',PythonVersion);
   if posDot = 0 then