diff --git a/components/tachart/tadatatools.pas b/components/tachart/tadatatools.pas
index 51bb034611..f51c7e0e2b 100644
--- a/components/tachart/tadatatools.pas
+++ b/components/tachart/tadatatools.pas
@@ -280,11 +280,11 @@ begin
   if AMode in [dpmSnap, dpmLock] then begin
     FindNearestPoint(APoint);
     ADest.GraphPos := FNearestGraphPoint;
-    ADest.FIndex := PointIndex;
+    ADest.Index := PointIndex;
     if not SameTransformations(FSeries, AOtherEndSeries) then
       FSeries := nil;
   end;
-  ADest.FSeries := FSeries;
+  ADest.Series := FSeries;
   if FSeries = nil then
     ADest.GraphPos := FChart.ImageToGraph(APoint);
   Result := (FSeries <> nil) or (AMode <> dpmLock);
@@ -326,7 +326,7 @@ begin
   if IsActive then exit;
   if dpdoPermanent in Options then
     DoHide(GetCurrentDrawer);
-  PointStart.FSeries := nil;
+  PointStart.Series := nil;
   if FindRef(APoint, DataPointModeStart, PointStart, nil) then
     Activate;
   PointEnd.Assign(PointStart);
diff --git a/components/tachart/tatools.pas b/components/tachart/tatools.pas
index 2f6209d5c4..8ef49c944c 100644
--- a/components/tachart/tatools.pas
+++ b/components/tachart/tatools.pas
@@ -409,8 +409,8 @@ type
       procedure Assign(ASource: TPointRef);
       function AxisPos(ADefaultSeries: TBasicChartSeries = nil): TDoublePoint;
       property GraphPos: TDoublePoint read FGraphPos write SetGraphPos;
-      property Index: Integer read FIndex;
-      property Series: TBasicChartSeries read FSeries;
+      property Index: Integer read FIndex write FIndex;
+      property Series: TBasicChartSeries read FSeries write FSeries;
     end;
 
   strict private