diff --git a/components/tachart/tachartaxis.pas b/components/tachart/tachartaxis.pas
index cb4b8f2659..cddce0b799 100644
--- a/components/tachart/tachartaxis.pas
+++ b/components/tachart/tachartaxis.pas
@@ -769,7 +769,7 @@ begin
   Result.FMin := AMin;
   Result.FMax := AMax;
   Result.FFormat := Marks.Format;
-  Result.FUseY := IsVertical;
+  Result.FUseY := IsVertical xor Marks.SourceExchangeXY;
   Result.FAxisToGraph := @GetTransform.AxisToGraph;
   Result.FGraphToAxis := @GetTransform.GraphToAxis;
   Result.FGraphToImage := @FHelper.GraphToImage;
diff --git a/components/tachart/tachartaxisutils.pas b/components/tachart/tachartaxisutils.pas
index 0ea469a387..997b40140f 100644
--- a/components/tachart/tachartaxisutils.pas
+++ b/components/tachart/tachartaxisutils.pas
@@ -84,6 +84,7 @@ type
   strict private
     FDefaultListener: TListener;
     FDefaultSource: TIntervalChartSource;
+    FSourceExchangeXY: Boolean;
     FStripes: TChartStyles;
     procedure SetStripes(AValue: TChartStyles);
   strict protected
@@ -95,6 +96,8 @@ type
       ADrawer: IChartDrawer; AIsVertical: Boolean; ATickLength: Integer;
       AValues: TChartValueTextArray): Integer;
     property DefaultSource: TIntervalChartSource read FDefaultSource;
+    property SourceExchangeXY: Boolean
+      read FSourceExchangeXY write FSourceExchangeXY default false;
     property Stripes: TChartStyles read FStripes write SetStripes;
   end;
 
@@ -138,6 +141,7 @@ type
     property Range: TChartRange read FRange write SetRange;
     property RotationCenter;
     property Source: TCustomChartSource read FSource write SetSource;
+    property SourceExchangeXY;
     property Stripes;
     property Style default smsValue;
     property TextFormat;