diff --git a/components/tachart/tatypes.pas b/components/tachart/tatypes.pas
index 592e0b7413..af8abe85d9 100644
--- a/components/tachart/tatypes.pas
+++ b/components/tachart/tatypes.pas
@@ -500,7 +500,7 @@ begin
   if not ABrushAlreadySet then begin
     ADrawer.Brush := Brush;
     if (ocBrush in OverrideColor) and (AColor <> clTAColor) then
-      ADrawer.BrushColor := AColor;
+      ADrawer.SetBrushParams(Brush.Style, AColor);
   end;
 
   ADrawer.Pen := Pen;