diff --git a/components/tachart/tagraph.pas b/components/tachart/tagraph.pas
index ef036f9bd9..23722ed4b7 100644
--- a/components/tachart/tagraph.pas
+++ b/components/tachart/tagraph.pas
@@ -953,12 +953,12 @@ end;
 
 function TChart.GetChartHeight: Integer;
 begin
-  Result := FClipRect.Right - FClipRect.Left;
+  Result := FClipRect.Bottom - FClipRect.Top;
 end;
 
 function TChart.GetChartWidth: Integer;
 begin
-  Result := FClipRect.Bottom - FClipRect.Top;
+  Result := FClipRect.Right - FClipRect.Left;
 end;
 
 procedure TChart.GetChildren(AProc: TGetChildProc; ARoot: TComponent);