diff --git a/components/tachart/tachartaxis.pas b/components/tachart/tachartaxis.pas
index 2b52336084..f4ae6eca42 100644
--- a/components/tachart/tachartaxis.pas
+++ b/components/tachart/tachartaxis.pas
@@ -820,8 +820,8 @@ begin
   FHelper.FZOffset.Y := Min(ZPosition, AMaxZPosition);
   FHelper.FZOffset.X := -FHelper.FZOffset.Y;
   FHelper.FAtDataOnly := AtDataOnly;
-  FHelper.FMaxForMarks := -infinity;
-  FHelper.FMinForMarks := infinity;
+  FHelper.FMaxForMarks := NegInfinity;
+  FHelper.FMinForMarks := SafeInfinity;
 end;
 
 procedure TChartAxis.SetAlignment(AValue: TChartAxisAlignment);
diff --git a/components/tachart/tagraph.pas b/components/tachart/tagraph.pas
index 73aad72a77..8d59b67718 100644
--- a/components/tachart/tagraph.pas
+++ b/components/tachart/tagraph.pas
@@ -995,7 +995,7 @@ var
   s: TBasicChartSeries;
   mn, mx: Double;
 begin
-  Result.FStart := Infinity;
+  Result.FStart := SafeInfinity;
   Result.FEnd := NegInfinity;
   for s in Series do
     if s.Active and s.GetAxisBounds(AAxis, mn, mx) then begin