diff --git a/components/tachart/tagraph.pas b/components/tachart/tagraph.pas
index 61a235a9c9..a835e53f3e 100644
--- a/components/tachart/tagraph.pas
+++ b/components/tachart/tagraph.pas
@@ -485,8 +485,8 @@ procedure TChart.Pan(const ADelta: TPoint);
 var
   d: TDoublePoint;
 begin
-  d.X := ADelta.X / FScale.X;
-  d.Y := ADelta.Y / FScale.Y;
+  d.X := -ADelta.X / FScale.X;
+  d.Y := -ADelta.Y / FScale.Y;
   with FLogicalExtent do begin
     a += d;
     b += d;