diff --git a/lcl/include/control.inc b/lcl/include/control.inc
index 722370e7dc..a77d36a15b 100644
--- a/lcl/include/control.inc
+++ b/lcl/include/control.inc
@@ -2066,7 +2066,6 @@ end;
 procedure TControl.WMMouseWheel(var Message: TLMMouseEvent);
 var
   MousePos: TPoint;
-  RealControl: TControl;
 begin
   Assert(False, Format('Trace: [TControl.LMMouseWheel] %s', [ClassName]));
   DoBeforeMouseMessage;
diff --git a/lcl/include/wincontrol.inc b/lcl/include/wincontrol.inc
index 9fad6c58c7..2c88226455 100644
--- a/lcl/include/wincontrol.inc
+++ b/lcl/include/wincontrol.inc
@@ -4100,7 +4100,7 @@ begin
     end;
   end;
 
-  //DebugLn('TWinControl.IsControlMouseMsg B ',DbgSName(Self),' Control=',DbgSName(Control));
+  //DebugLn(['TWinControl.IsControlMouseMsg B ',DbgSName(Self),' Control=',DbgSName(Control),' Msg=',TheMessage.Msg]);
   Result := False;
   if Control <> nil then
   begin