diff --git a/lcl/forms.pp b/lcl/forms.pp
index d640cfa937..51eb4aafaa 100644
--- a/lcl/forms.pp
+++ b/lcl/forms.pp
@@ -912,7 +912,7 @@ type
                                AData: pointer); virtual;
     function CalcHintRect(MaxWidth: Integer; const AHint: String;
                           AData: pointer): TRect; virtual;
-    function OffsetHintRect(NewPos: TPoint; dy: Integer = 15;
+    function OffsetHintRect(AOffset: TPoint; dy: Integer = 15;
       KeepWidth: Boolean = True; KeepHeight: Boolean = True): Boolean;
     procedure InitializeWnd; override;
     function IsHintMsg(Msg: TMsg): Boolean; virtual;
diff --git a/lcl/include/hintwindow.inc b/lcl/include/hintwindow.inc
index 04653d9f69..9509c8187a 100644
--- a/lcl/include/hintwindow.inc
+++ b/lcl/include/hintwindow.inc
@@ -348,10 +348,10 @@ begin
   end;
 end;
 
-function THintWindow.OffsetHintRect(NewPos: TPoint; dy: Integer;
+function THintWindow.OffsetHintRect(AOffset: TPoint; dy: Integer;
   KeepWidth: Boolean; KeepHeight: Boolean): Boolean;
 begin
-  Result:=OffsetRect(FHintRect, NewPos.X, NewPos.Y + dy);
+  Result:=OffsetRect(FHintRect, AOffset.X, AOffset.Y + dy);
   AdjustBoundsForMonitor(KeepWidth, KeepHeight);
 end;