diff --git a/components/tachart/demo/labels/Main.lfm b/components/tachart/demo/labels/Main.lfm
index 12b48d37fd..7352d58618 100644
--- a/components/tachart/demo/labels/Main.lfm
+++ b/components/tachart/demo/labels/Main.lfm
@@ -7,7 +7,7 @@ object Form1: TForm1
   ClientHeight = 386
   ClientWidth = 496
   Position = poScreenCenter
-  LCLVersion = '0.9.29'
+  LCLVersion = '0.9.31'
   object pcMain: TPageControl
     Left = 0
     Height = 336
@@ -60,6 +60,43 @@ object Form1: TForm1
         end
       end
     end
+    object Multiline: TTabSheet
+      Caption = 'Multiline'
+      ClientHeight = 310
+      ClientWidth = 488
+      object ChartMulti: TChart
+        Left = 0
+        Height = 310
+        Top = 0
+        Width = 488
+        AxisList = <        
+          item
+            Marks.LabelFont.Orientation = 900
+            Marks.Frame.Style = psSolid
+            Title.LabelFont.Orientation = 900
+            OnMarkToText = ChartMultiAxisList1MarkToText
+          end        
+          item
+            Alignment = calBottom
+            Marks.Frame.Style = psSolid
+            Title.Visible = True
+            Title.Caption = 'test'
+            OnMarkToText = ChartMultiAxisList1MarkToText
+          end>
+        Foot.Brush.Color = clBtnFace
+        Foot.Font.Color = clBlue
+        Title.Brush.Color = clBtnFace
+        Title.Font.Color = clBlue
+        Title.Text.Strings = (
+          'TAChart'
+        )
+        Align = alClient
+        ParentColor = False
+        object ChartMultiLineSeries1: TLineSeries
+          Source = RandomChartSource1
+        end
+      end
+    end
   end
   object pnlControls: TPanel
     Left = 0
diff --git a/components/tachart/demo/labels/Main.pas b/components/tachart/demo/labels/Main.pas
index 52d23fc9d0..d0cdab6fde 100644
--- a/components/tachart/demo/labels/Main.pas
+++ b/components/tachart/demo/labels/Main.pas
@@ -6,7 +6,7 @@ interface
 
 uses
   Classes, ComCtrls, ExtCtrls, Spin, StdCtrls, SysUtils, FileUtil, Forms,
-  Controls, Graphics, Dialogs, TAGraph, TASeries, TASources;
+  Controls, Graphics, Dialogs, TAGraph, TASeries, TASources, TAChartAxis;
 
 type
 
@@ -16,6 +16,8 @@ type
     Chart1: TChart;
     Chart1BarSeries1: TBarSeries;
     cbHideOverlapping: TCheckBox;
+    ChartMulti: TChart;
+    ChartMultiLineSeries1: TLineSeries;
     gbAngles: TGroupBox;
     lblAxisAngle: TLabel;
     lblSeriesAngle: TLabel;
@@ -26,8 +28,10 @@ type
     seAxisAngle: TSpinEdit;
     seSeriesAngle: TSpinEdit;
     seTitleAngle: TSpinEdit;
+    Multiline: TTabSheet;
     tsBar: TTabSheet;
     procedure cbHideOverlappingChange(Sender: TObject);
+    procedure ChartMultiAxisList1MarkToText(var AText: String; AMark: Double);
     procedure seAxisAngleChange(Sender: TObject);
     procedure seSeriesAngleChange(Sender: TObject);
     procedure seTitleAngleChange(Sender: TObject);
@@ -55,13 +59,23 @@ begin
     op := opIgnore;
   Chart1.LeftAxis.Marks.OverlapPolicy := op;
   Chart1.BottomAxis.Marks.OverlapPolicy := op;
+  ChartMulti.LeftAxis.Marks.OverlapPolicy := op;
+  ChartMulti.BottomAxis.Marks.OverlapPolicy := op;
   Chart1BarSeries1.Marks.OverlapPolicy := op;
 end;
 
+procedure TForm1.ChartMultiAxisList1MarkToText(
+  var AText: String; AMark: Double);
+begin
+  AText += Format(#13#10'%.9g', [AMark * 2]);
+end;
+
 procedure TForm1.seAxisAngleChange(Sender: TObject);
 begin
   Chart1.LeftAxis.Marks.LabelFont.Orientation := seAxisAngle.Value * 10;
   Chart1.BottomAxis.Marks.LabelFont.Orientation := seAxisAngle.Value * 10;
+  ChartMulti.LeftAxis.Marks.LabelFont.Orientation := seAxisAngle.Value * 10;
+  ChartMulti.BottomAxis.Marks.LabelFont.Orientation := seAxisAngle.Value * 10;
 end;
 
 procedure TForm1.seSeriesAngleChange(Sender: TObject);