diff --git a/components/tachart/tatextelements.pas b/components/tachart/tatextelements.pas
index 9bd6b14aa6..54cd139d64 100644
--- a/components/tachart/tatextelements.pas
+++ b/components/tachart/tatextelements.pas
@@ -606,6 +606,7 @@ begin
       Self.FFont.Assign(Font);
       Self.FFrame.Assign(Frame);
       Self.FText.Assign(Text);
+      Self.FWordWrap := WordWrap;
    end;
 
   inherited Assign(ASource);
diff --git a/components/tachart/tatypes.pas b/components/tachart/tatypes.pas
index 082c815b08..8528b7f003 100644
--- a/components/tachart/tatypes.pas
+++ b/components/tachart/tatypes.pas
@@ -685,7 +685,7 @@ end;
 procedure TChartMargins.Assign(Source: TPersistent);
 begin
   if Source is TChartMargins then
-    TChartMargins(Source).FData.FRect := Data;
+    Self.FData.FRect := TChartMargins(Source).FData.FRect;
   inherited Assign(Source);
 end;