diff --git a/components/tachart/demo/tools/main.lfm b/components/tachart/demo/tools/main.lfm
index ae0e133a0a..ff784d4b63 100644
--- a/components/tachart/demo/tools/main.lfm
+++ b/components/tachart/demo/tools/main.lfm
@@ -136,6 +136,7 @@ object Form1: TForm1
         'Right-drag in any direction'
         'Right-drag left/right, Shift+right-drag up/down'
         'Right-click near the margin'
+        'Right-click near the margin and hold'
       )
       OnClick = rgPanClick
       TabOrder = 1
diff --git a/components/tachart/demo/tools/main.pas b/components/tachart/demo/tools/main.pas
index ceb7082ef6..c606481634 100644
--- a/components/tachart/demo/tools/main.pas
+++ b/components/tachart/demo/tools/main.pas
@@ -47,6 +47,9 @@ var
 
 implementation
 
+uses
+  Math;
+
 {$R *.lfm}
 
 { TForm1 }
@@ -83,7 +86,8 @@ begin
   ChartToolset1PanAny.Enabled := rgPan.ItemIndex = 0;
   ChartToolset1PanHor.Enabled := rgPan.ItemIndex = 1;
   ChartToolset1PanVert.Enabled := rgPan.ItemIndex = 1;
-  ChartToolset1PanClickTool1.Enabled := rgPan.ItemIndex = 2;
+  ChartToolset1PanClickTool1.Enabled := rgPan.ItemIndex in [2, 3];
+  ChartToolset1PanClickTool1.Interval := IfThen(rgPan.ItemIndex = 2, 0, 200);
 end;
 
 procedure TForm1.rgZoomClick(Sender: TObject);