diff --git a/components/tachart/tachartutils.pas b/components/tachart/tachartutils.pas
index 04bc2af83e..72fb2663f4 100644
--- a/components/tachart/tachartutils.pas
+++ b/components/tachart/tachartutils.pas
@@ -516,8 +516,6 @@ begin
   end;
 end;
 
-{$HINTS OFF}
-
 function RectIntersectsRect(
   var ARect: TDoubleRect; const AFixed: TDoubleRect): Boolean;
 
@@ -549,6 +547,7 @@ begin
   Result := ACanvas.TextHeight(TYPICAL_TEXT);
 end;
 
+{$HINTS OFF}
 procedure Unused(const A1);
 begin
 end;