diff --git a/components/tachart/tacustomseries.pas b/components/tachart/tacustomseries.pas
index 9ef29e6641..518e93c33f 100644
--- a/components/tachart/tacustomseries.pas
+++ b/components/tachart/tacustomseries.pas
@@ -205,9 +205,11 @@ type
       AXLabel: String = ''; AColor: TColor = clTAColor): Integer; overload;
     function AddY(
       AY: Double; ALabel: String = ''; AColor: TColor = clTAColor): Integer; inline;
+    procedure BeginUpdate;
     procedure Clear; virtual;
     function Count: Integer; inline;
     procedure Delete(AIndex: Integer); virtual;
+    procedure EndUpdate;
     function Extent: TDoubleRect; virtual;
     function FormattedMark(
       AIndex: Integer; AFormat: String = ''; AYIndex: Integer = 0): String;
@@ -730,6 +732,11 @@ begin
   Source.BeforeDraw;
 end;
 
+procedure TChartSeries.BeginUpdate;
+begin
+  ListSource.BeginUpdate;
+end;
+
 procedure TChartSeries.Clear;
 begin
   ListSource.Clear;
@@ -773,6 +780,12 @@ begin
   inherited;
 end;
 
+procedure TChartSeries.EndUpdate;
+begin
+  ListSource.EndUpdate;
+  UpdateParentChart;
+end;
+
 function TChartSeries.Extent: TDoubleRect;
 begin
   Result := Source.ExtentCumulative;
diff --git a/components/tachart/taseries.pas b/components/tachart/taseries.pas
index 2c2d4186c3..0a4d5703ab 100644
--- a/components/tachart/taseries.pas
+++ b/components/tachart/taseries.pas
@@ -209,9 +209,6 @@ type
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
     procedure Draw(ADrawer: IChartDrawer); override;
-  public
-    procedure BeginUpdate;
-    procedure EndUpdate;
   published
     property AxisIndexX;
     property AxisIndexY;
@@ -378,11 +375,6 @@ begin
   inherited Assign(ASource);
 end;
 
-procedure TLineSeries.BeginUpdate;
-begin
-  ListSource.BeginUpdate;
-end;
-
 constructor TLineSeries.Create(AOwner: TComponent);
 begin
   inherited Create(AOwner);
@@ -568,12 +560,6 @@ begin
     DrawPointers(ADrawer);
 end;
 
-procedure TLineSeries.EndUpdate;
-begin
-  ListSource.EndUpdate;
-  UpdateParentChart;
-end;
-
 procedure TLineSeries.GetLegendItems(AItems: TChartLegendItems);
 var
   lp: TPen;