diff --git a/components/tachart/taseries.pas b/components/tachart/taseries.pas
index db6f5afba9..ef303f39e5 100644
--- a/components/tachart/taseries.pas
+++ b/components/tachart/taseries.pas
@@ -1287,7 +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);
+      if IsRotated then inc(imageBar.Right) else inc(imageBar.Bottom);
 
       // Draw a line instead of an empty rectangle.
       if (Bottom = Top) and IsRotated then Dec(Top);