diff --git a/components/tachart/taseries.pas b/components/tachart/taseries.pas
index ad5a9a50b3..db6f5afba9 100644
--- a/components/tachart/taseries.pas
+++ b/components/tachart/taseries.pas
@@ -1287,6 +1287,7 @@ var
       TopLeft := ParentChart.GraphToImage(graphBar.a);
       BottomRight := ParentChart.GraphToImage(graphBar.b);
       TAGeometry.NormalizeRect(imageBar);
+      if IsRotated then inc(imageBar.Right) else dec(imageBar.Top);
 
       // Draw a line instead of an empty rectangle.
       if (Bottom = Top) and IsRotated then Dec(Top);