diff --git a/components/tachart/tachartutils.pas b/components/tachart/tachartutils.pas
index 72fb2663f4..1c7d24c61b 100644
--- a/components/tachart/tachartutils.pas
+++ b/components/tachart/tachartutils.pas
@@ -192,6 +192,7 @@ const
 
 function BoundsSize(ALeft, ATop: Integer; ASize: TSize): TRect; inline;
 
+function DoublePoint(AX, AY: Double): TDoublePoint; inline;
 function DoubleRect(AX1, AY1, AX2, AY2: Double): TDoubleRect; inline;
 
 procedure DrawLineDepth(ACanvas: TCanvas; AX1, AY1, AX2, AY2, ADepth: Integer);
@@ -318,6 +319,12 @@ begin
   end; {case AxisScale}
 end;
 
+function DoublePoint(AX, AY: Double): TDoublePoint; inline;
+begin
+  Result.X := AX;
+  Result.Y := AY;
+end;
+
 function DoubleRect(AX1, AY1, AX2, AY2: Double): TDoubleRect; inline;
 begin
   Result.a.X := AX1;