diff --git a/lcl/include/wincontrol.inc b/lcl/include/wincontrol.inc
index 5296057b9b..592423ccf5 100644
--- a/lcl/include/wincontrol.inc
+++ b/lcl/include/wincontrol.inc
@@ -4955,9 +4955,6 @@ begin
   MousePos.X := Message.X;
   MousePos.Y := Message.Y;
 
-  { always the middle button }
-  Shift := [ssMiddle];
-
   if not DoMouseWheel(Shift, Message.WheelDelta, MousePos) then
     inherited;
 end;