diff --git a/components/virtualtreeview/virtualtrees.pas b/components/virtualtreeview/virtualtrees.pas
index a7cdd02ff..94972e048 100644
--- a/components/virtualtreeview/virtualtrees.pas
+++ b/components/virtualtreeview/virtualtrees.pas
@@ -13321,12 +13321,9 @@ const
 var
   ScrollCount: Integer;
   ScrollLines: Integer;
-  State: TShiftState;
 begin
   StopWheelPanning;
 
-  State := KeysToShiftState(Message.Button);
-
   //inherited;
 
 //  if Message.Result = 0  then