diff --git a/components/tachart/tatypes.pas b/components/tachart/tatypes.pas
index baf9df302d..e2b3702ab4 100644
--- a/components/tachart/tatypes.pas
+++ b/components/tachart/tatypes.pas
@@ -575,8 +575,10 @@ begin
   if not Clipped then
     ADrawer.ClippingStop;
 
-  ADrawer.Pen := LinkPen;
-  ADrawer.Line(ADataPoint, ALabelCenter);
+  if LinkPen.Visible then begin;
+    ADrawer.Pen := LinkPen;
+    ADrawer.Line(ADataPoint, ALabelCenter);
+  end;
   ADrawer.Brush := LabelBrush;
   if IsMarginRequired then begin
     ADrawer.Pen := Frame;