diff --git a/components/tachart/tachartaxis.pas b/components/tachart/tachartaxis.pas
index 0053615d4d..145963b520 100644
--- a/components/tachart/tachartaxis.pas
+++ b/components/tachart/tachartaxis.pas
@@ -466,6 +466,7 @@ procedure TChartAxis.Draw;
         FValueMax := Min(FAxisTransf(AMax), FValueMax);
         if FValueMax <= FValueMin then continue;
         ExpandRange(FValueMin, FValueMax, -EPS);
+        FClipRangeDelta := 1;
         try
           BeginDrawing;
           for m in minorMarks do
diff --git a/components/tachart/tachartaxisutils.pas b/components/tachart/tachartaxisutils.pas
index e8086b7565..5bfe546779 100644
--- a/components/tachart/tachartaxisutils.pas
+++ b/components/tachart/tachartaxisutils.pas
@@ -211,6 +211,7 @@ type
   public
     FAxis: TChartBasicAxis;
     FAxisTransf: TTransformFunc;
+    FClipRangeDelta: Integer;
     FClipRect: ^TRect;
     FDrawer: IChartDrawer;
     FPrevCoord: Integer;
@@ -357,7 +358,7 @@ var
   rmin, rmax: Integer;
 begin
   GetClipRange(rmin, rmax);
-  Result := InRange(ACoord, rmin + 1, rmax - 1);
+  Result := InRange(ACoord, rmin + FClipRangeDelta, rmax - FClipRangeDelta);
 end;
 
 procedure TAxisDrawHelper.LineZ(AP1, AP2: TPoint);