diff --git a/lcl/lclclasses.pp b/lcl/lclclasses.pp
index d45fef1a77..87f0b068d2 100644
--- a/lcl/lclclasses.pp
+++ b/lcl/lclclasses.pp
@@ -108,7 +108,9 @@ begin
   TLCLComponent(Result).FWidgetSetClass := FindWSComponentClass(Self);
   if TLCLComponent(Result).FWidgetSetClass = nil then
   begin
+    {$IFDEF VerboseLCL}
     DebugLn(['TLCLComponent.NewInstance WARNING: missing FWidgetSetClass ',ClassName]);
+    {$ENDIF}
     TLCLComponent(Result).FWidgetSetClass := TWSLCLComponent;
   end;
 end;