diff --git a/lcl/include/control.inc b/lcl/include/control.inc
index 7670c6b763..6e65d41daf 100644
--- a/lcl/include/control.inc
+++ b/lcl/include/control.inc
@@ -2510,7 +2510,9 @@ begin
   and not (csNoDesignVisible in ControlStyle)))
   then begin
     Rect := BoundsRect;
-    //DebugLn(['TControl.InvalidateControl Rect=',dbgs(Rect)]);
+    {$IFDEF VerboseBug1152}
+    DebugLn(['TControl.InvalidateControl ',DbgSName(Self),' Rect=',dbgs(Rect)]);
+    {$ENDIF}
     InvalidateRect(Parent.Handle, @Rect, not (CtrlIsOpaque or
       (csOpaque in Parent.ControlStyle) or BackgroundClipped));
   end;
diff --git a/lcl/include/speedbutton.inc b/lcl/include/speedbutton.inc
index dd0fe930f7..29e6d36637 100644
--- a/lcl/include/speedbutton.inc
+++ b/lcl/include/speedbutton.inc
@@ -486,6 +486,9 @@ var
   SIndex : Longint;
   TMP : String;
 begin
+  {$IFDEF VerboseBug1152}
+  DebugLn(['TCustomSpeedButton.Paint ',DbgSName(Self)]);
+  {$ENDIF}
   UpdateState(false);
   if FGlyph=nil then exit;