diff --git a/components/tachart/taanimatedsource.pas b/components/tachart/taanimatedsource.pas
index 1f0b85f53f..2e74ba3e18 100644
--- a/components/tachart/taanimatedsource.pas
+++ b/components/tachart/taanimatedsource.pas
@@ -92,6 +92,7 @@ uses
 
 procedure TCustomAnimatedChartSource.Changed(ASender: TObject);
 begin
+  Unused(ASender);
   Notify;
 end;
 
@@ -218,5 +219,8 @@ begin
     OnStop(Self);
 end;
 
+initialization
+  if ZeroValue = 0 then; // Workaround for an incorrect "unused unit" hint.
+
 end.