diff --git a/components/tachart/tachartaxis.pas b/components/tachart/tachartaxis.pas
index 23445456cb..be16509c44 100644
--- a/components/tachart/tachartaxis.pas
+++ b/components/tachart/tachartaxis.pas
@@ -496,7 +496,7 @@ begin
   AMax := GetTransform.GraphToAxis(AMax);
   if AMin > AMax then
     Exchange(AMin, AMax);
-  Marks.SourceDef.ValuesInInterval(
+  Marks.SourceDef.ValuesInRange(
     AMin, AMax, Marks.Format, IsVertical, FMarkValues, FMarkTexts);
   if Inverted then
     for i := 0 to High(FMarkValues) div 2 do begin
diff --git a/components/tachart/tasources.pas b/components/tachart/tasources.pas
index aacf6114ac..ab0a3fa986 100644
--- a/components/tachart/tasources.pas
+++ b/components/tachart/tasources.pas
@@ -62,7 +62,7 @@ type
     class procedure CheckFormat(const AFormat: String);
     function Extent: TDoubleRect; virtual;
     function FormatItem(const AFormat: String; AIndex: Integer): String;
-    procedure ValuesInInterval(
+    procedure ValuesInRange(
       AMin, AMax: Double; const AFormat: String; AUseY: Boolean;
       out AValues: TDoubleDynArray; out ATexts: TStringDynArray); virtual;
     function ValuesTotal: Double; virtual;
@@ -165,7 +165,7 @@ type
     function GetCount: Integer; override;
     function GetItem(AIndex: Integer): PChartDataItem; override;
   public
-    procedure ValuesInInterval(
+    procedure ValuesInRange(
       AMin, AMax: Double; const AFormat: String; AUseY: Boolean;
       out AValues: TDoubleDynArray; out ATexts: TStringDynArray); override;
   end;
@@ -327,7 +327,7 @@ begin
     FBroadcaster.Broadcast;
 end;
 
-procedure TCustomChartSource.ValuesInInterval(
+procedure TCustomChartSource.ValuesInRange(
   AMin, AMax: Double; const AFormat: String; AUseY: Boolean;
   out AValues: TDoubleDynArray; out ATexts: TStringDynArray);
 var
@@ -782,7 +782,7 @@ begin
   Result := nil;
 end;
 
-procedure TIntervalChartSource.ValuesInInterval(
+procedure TIntervalChartSource.ValuesInRange(
   AMin, AMax: Double; const AFormat: String; AUseY: Boolean;
   out AValues: TDoubleDynArray; out ATexts: TStringDynArray);
 var