diff --git a/components/tachart/tachartaxis.pas b/components/tachart/tachartaxis.pas
index fb028b5cdf..8f448eed29 100644
--- a/components/tachart/tachartaxis.pas
+++ b/components/tachart/tachartaxis.pas
@@ -351,7 +351,7 @@ end;
 function TChartMinorAxis.GetMarks: TChartMinorAxisMarks;
 begin
   Result := TChartMinorAxisMarks(inherited Marks);
-end;
+end{%H-}; // to silence the compiler warning of impossible inherited inside inline proc
 
 function TChartMinorAxis.GetMarkValues(AMin, AMax: Double): TChartValueTextArray;
 var
@@ -562,7 +562,7 @@ end;
 function TChartAxis.GetMarks: TChartAxisMarks;
 begin
   Result := TChartAxisMarks(inherited Marks);
-end;
+end{%H-}; // to silence the compiler warning of impossible inherited inside inline proc
 
 procedure TChartAxis.GetMarkValues;
 var
@@ -1005,7 +1005,7 @@ end;
 function TChartAxisList.Add: TChartAxis; inline;
 begin
   Result := TChartAxis(inherited Add);
-end;
+end{%H-};
 
 constructor TChartAxisList.Create(AOwner: TCustomChart);
 begin
diff --git a/components/tachart/tachartteechart.pas b/components/tachart/tachartteechart.pas
index 7b61cd32ed..aa55235197 100644
--- a/components/tachart/tachartteechart.pas
+++ b/components/tachart/tachartteechart.pas
@@ -172,7 +172,7 @@ function THorizBarSeries.AddXY(
   AX, AY: Double; AXLabel: String; AColor: TChartColor): Integer;
 begin
   Result := inherited AddXY(AY, AX, AXLabel, AColor);
-end;
+end{%H-};  // to silence the compiler warning of impossible inline of inherited method
 
 constructor THorizBarSeries.Create(AOwner: TComponent);
 begin
diff --git a/components/tachart/tachartutils.pas b/components/tachart/tachartutils.pas
index 630d30b07a..680bf83015 100644
--- a/components/tachart/tachartutils.pas
+++ b/components/tachart/tachartutils.pas
@@ -566,7 +566,7 @@ end;
 procedure THistory.DeleteOld(ACount: Integer);
 begin
   FCount -= ACount;
-  Move(FData[ACount], FData[0], SizeOf(FData[0]) * FCount);
+  Move(FData[ACount], FData[0], SizeInt(FCount) * SizeOf(FData[0]));
 end;
 
 function THistory.GetCapacity: Cardinal;
diff --git a/components/tachart/tadiagram.pas b/components/tachart/tadiagram.pas
index a71e9c6250..d6aaefb452 100644
--- a/components/tachart/tadiagram.pas
+++ b/components/tachart/tadiagram.pas
@@ -73,6 +73,8 @@ type
     procedure Add(ADecorator: IDiaDecorator);
   public
     constructor Create(AOwner: TDiaObject);
+    procedure Changed(ASender: TDiaObject); override;
+    procedure Notify(ASender: TDiaObject); override;
     property Owner: TDiaObject read FOwner;
     function GetEnumerator: TDiaDecoratorEnumerator;
   end;
@@ -454,11 +456,23 @@ begin
   FOwner := AOwner;
 end;
 
+procedure TDiaDecoratorList.Changed(ASender: TDiaObject);
+begin
+  // Remove compiler warning of abstract method
+  Unused(ASender);
+end;
+
 function TDiaDecoratorList.GetEnumerator: TDiaDecoratorEnumerator;
 begin
   Result := TDiaDecoratorEnumerator.Create(Self);
 end;
 
+procedure TDiaDecoratorList.Notify(ASender: TDiaObject);
+begin
+  // Remove compiler warning of abstract method
+  Unused(ASender);
+end;
+
 { TDiaDecorator }
 
 constructor TDiaDecorator.Create(AOwner: TDiaDecoratorList);