diff --git a/components/tachart/tastyles.pas b/components/tachart/tastyles.pas
index f764a6ab6c..7f48b8e583 100644
--- a/components/tachart/tastyles.pas
+++ b/components/tachart/tastyles.pas
@@ -31,11 +31,13 @@ type
     FBrush: TBrush;
     FPen: TPen;
     FRepeatCount: Cardinal;
+    FText: String;
     FUseBrush: Boolean;
     FUsePen: Boolean;
     procedure SetBrush(AValue: TBrush);
     procedure SetPen(AValue: TPen);
     procedure SetRepeatCount(AValue: Cardinal);
+    procedure SetText(AValue: String);
     procedure SetUseBrush(AValue: Boolean);
     procedure SetUsePen(AValue: Boolean);
     procedure StyleChanged(ASender: TObject);
@@ -52,6 +54,7 @@ type
     property Pen: TPen read FPen write SetPen;
     property RepeatCount: Cardinal
       read FRepeatCount write SetRepeatCount default 1;
+    property Text: String read FText write SetText;
     property UseBrush: Boolean read FUseBrush write SetUseBrush default true;
     property UsePen: Boolean read FUsePen write SetUsePen default true;
   end;
@@ -176,6 +179,13 @@ begin
   StyleChanged(Self);
 end;
 
+procedure TChartStyle.SetText(AValue: String);
+begin
+  if FText = AValue then exit;
+  FText := AValue;
+  StyleChanged(Self);
+end;
+
 procedure TChartStyle.SetUseBrush(AValue: Boolean);
 begin
   if FUseBrush = AValue then exit;