diff --git a/lcl/interfaces/win32/win32wsforms.pp b/lcl/interfaces/win32/win32wsforms.pp
index 355aa8e86e..e14695d984 100644
--- a/lcl/interfaces/win32/win32wsforms.pp
+++ b/lcl/interfaces/win32/win32wsforms.pp
@@ -167,7 +167,7 @@ var
 begin
   lVisible := AWinControl.HandleAllocated and Windows.IsWindowVisible(AWinControl.Handle);
   if lVisible then
-    ScrollWindowPtr(AWinControl.Handle, DeltaX, DeltaY, nil, nil);
+    ScrollWindowPtr(AWinControl.Handle, -DeltaX, -DeltaY, nil, nil);
 end;
 
 { TWin32WSCustomForm }