diff --git a/components/tachart/tagraph.pas b/components/tachart/tagraph.pas
index 20fb5d3e4d..95f1bc058f 100644
--- a/components/tachart/tagraph.pas
+++ b/components/tachart/tagraph.pas
@@ -1141,7 +1141,7 @@ begin
   Unused(ADistFunc, APoint);
   AIndex := 0;
   AImg := Point(0, 0);
-  Avalue := ZeroDoublePoint;
+  AValue := ZeroDoublePoint;
   Result := false;
 end;
 
diff --git a/components/tachart/taseries.pas b/components/tachart/taseries.pas
index 353e4de646..4b487803a8 100644
--- a/components/tachart/taseries.pas
+++ b/components/tachart/taseries.pas
@@ -106,7 +106,7 @@ type
   TAreaSeries = class(TBasicPointSeries)
   private
     FAreaBrush: TBrush;
-    FAreaLinesPen: TChartPen;
+    FAreaLinesPen: TPen;
     FInvertedStairs: Boolean;
     FStairs: Boolean;
 
@@ -119,12 +119,12 @@ type
     procedure SetSeriesColor(const AValue: TColor); override;
   public
     constructor Create(AOwner: TComponent); override;
-    destructor  Destroy; override;
+    destructor Destroy; override;
 
     procedure Draw(ACanvas: TCanvas); override;
   published
     property AreaBrush: TBrush read FAreaBrush write SetAreaBrush;
-    property AreaLinesPen: TChartPen read FAreaLinesPen write FAreaLinesPen;
+    property AreaLinesPen: TPen read FAreaLinesPen write FAreaLinesPen;
     property Depth;
     property InvertedStairs: Boolean
       read FInvertedStairs write SetInvertedStairs default false;
@@ -895,8 +895,11 @@ end;
 constructor TAreaSeries.Create(AOwner: TComponent);
 begin
   inherited Create(AOwner);
-  FAreaLinesPen := TChartPen.Create;
+  FAreaLinesPen := TPen.Create;
+  FAreaLinesPen.OnChange := @StyleChanged;
+
   FAreaBrush := TBrush.Create;
+  FAreaBrush.OnChange := @StyleChanged;
 end;
 
 destructor TAreaSeries.Destroy;
diff --git a/components/tachart/tatypes.pas b/components/tachart/tatypes.pas
index 636c85bf8f..352794689d 100644
--- a/components/tachart/tatypes.pas
+++ b/components/tachart/tatypes.pas
@@ -397,7 +397,7 @@ begin
   if Source is TChartPen then
     with TChartPen(Source) do
       FVisible := Visible;
-  inherited Assign( Source );
+  inherited Assign(Source);
 end;
 
 constructor TChartPen.Create;