diff --git a/components/lazreport/source/lr_e_htm.pas b/components/lazreport/source/lr_e_htm.pas
index 325c52e444..87d8dc06fd 100644
--- a/components/lazreport/source/lr_e_htm.pas
+++ b/components/lazreport/source/lr_e_htm.pas
@@ -51,13 +51,13 @@ type
   protected
     procedure AppendLine(const s: AnsiString);
     procedure InsertLine(const s: AnsiString; position: Integer);
-    function  GetviewText(View:TfrView): string; override;
+    function  GetviewText({%H-}View:TfrView): string; override;
     procedure CalcXCoords(var x,w: integer); override;
   public
     constructor Create(AStream: TStream); override;
     destructor Destroy; override;
     procedure OnData(x, y: Integer; View: TfrView); override;
-    procedure OnText(X, Y: Integer; const Text: String; View: TfrView); override;
+    procedure OnText({%H-}X, {%H-}Y: Integer; const Text: String; {%H-}View: TfrView); override;
     procedure OnEndPage; override;
     procedure OnEndDoc; override;
 
diff --git a/components/lazreport/source/lr_pgrid.pas b/components/lazreport/source/lr_pgrid.pas
index 73fa3aa518..e77484e6f1 100644
--- a/components/lazreport/source/lr_pgrid.pas
+++ b/components/lazreport/source/lr_pgrid.pas
@@ -51,7 +51,6 @@ type
     fShowHdOnAllPage      : boolean;
     FCaption              : String;
     FShowCaption          : Boolean;
-    FWidth                : Integer;
     FDataSet              : TDataset;
     FColumnsInfo          : array of TColumnInfo;
     FTemplate             : string;
diff --git a/components/lazreport/source/lr_register.pas b/components/lazreport/source/lr_register.pas
index cc0a79a06c..f3b814b626 100644
--- a/components/lazreport/source/lr_register.pas
+++ b/components/lazreport/source/lr_register.pas
@@ -32,8 +32,8 @@ type
 
   TfrRepEditor = class(TComponentEditor)
   public
-    procedure ExecuteVerb(Index: Integer); override;
-    function GetVerb(Index: Integer): string; override;
+    procedure ExecuteVerb({%H-}Index: Integer); override;
+    function GetVerb({%H-}Index: Integer): string; override;
     function GetVerbCount: Integer; override;
     procedure DoDesign;
   end;
diff --git a/components/lazreport/source/lr_rrect.pas b/components/lazreport/source/lr_rrect.pas
index 715eda3bd5..f16278b2b0 100644
--- a/components/lazreport/source/lr_rrect.pas
+++ b/components/lazreport/source/lr_rrect.pas
@@ -184,7 +184,6 @@ procedure PaintGrad(Cv: TCanvas; X, Y, X1, Y1: Word;
 var
   FromR, FromG, FromB: Integer; //These are the separate color values for RGB
   DiffR, DiffG, DiffB: Integer; // of color values.
-  rct: TRect;                   //Rectangle used to draw frame around button
   bm: TBitMap;
 
   {To speed things up and reduce flicker, I use a Bitmap to draw the button in
@@ -361,7 +360,6 @@ begin
     if Cv = nil then Exit;
     bm.Width := X1 - X;          //Set BMP dimensions to match control's
     bm.Height :=Y1 - Y;
-    rct := Rect(0, 0, bm.Width, bm.Height);  //Set rectangle size for later use
     FromR := FBeginClr and $000000ff;  //Strip out separate RGB values
     FromG := (FBeginClr shr 8) and $000000ff;
     FromB := (FBeginClr shr 16) and $000000ff;