diff --git a/components/turbopower_ipro/design/ipidehtmlcontrol.pas b/components/turbopower_ipro/design/ipidehtmlcontrol.pas
index 53694f3a5e..cf6e0bf3b3 100644
--- a/components/turbopower_ipro/design/ipidehtmlcontrol.pas
+++ b/components/turbopower_ipro/design/ipidehtmlcontrol.pas
@@ -101,7 +101,7 @@ end;
 
 function TLazIpHtmlDataProvider.DoGetStream(const URL: string): TStream;
 begin
-  debugln(['TLazIpHtmlDataProvider.DoGetStream ',URL,' ',DbgSName(Control.IDEProvider)]);
+  //debugln(['TLazIpHtmlDataProvider.DoGetStream ',URL,' ',DbgSName(Control.IDEProvider)]);
   Result:=Control.IDEProvider.GetStream(URL,false);
 end;
 
@@ -110,14 +110,14 @@ end;
 function TLazIPHtmlControl.DataProviderCanHandle(Sender: TObject;
   const URL: string): Boolean;
 begin
-  debugln(['TLazIPHtmlControl.DataProviderCanHandle URL=',URL]);
+  //debugln(['TLazIPHtmlControl.DataProviderCanHandle URL=',URL]);
   Result:=false;
 end;
 
 procedure TLazIPHtmlControl.DataProviderCheckURL(Sender: TObject;
   const URL: string; var Available: Boolean; var ContentType: string);
 begin
-  debugln(['TLazIPHtmlControl.DataProviderCheckURL URL=',URL]);
+  //debugln(['TLazIPHtmlControl.DataProviderCheckURL URL=',URL]);
   Available:=false;
   ContentType:='';
 end;
@@ -125,7 +125,7 @@ end;
 procedure TLazIPHtmlControl.DataProviderGetHtml(Sender: TObject;
   const URL: string; const aPostData: TIpFormDataEntity; var Stream: TStream);
 begin
-  debugln(['TLazIPHtmlControl.DataProviderGetHtml URL=',URL]);
+  //debugln(['TLazIPHtmlControl.DataProviderGetHtml URL=',URL]);
   Stream:=nil;
 end;
 
@@ -182,7 +182,7 @@ end;
 procedure TLazIPHtmlControl.DataProviderReportReference(Sender: TObject;
   const URL: string);
 begin
-  debugln(['TLazIPHtmlControl.DataProviderReportReference URL=',URL]);
+  //debugln(['TLazIPHtmlControl.DataProviderReportReference URL=',URL]);
 end;
 
 procedure TLazIPHtmlControl.IPHTMLPanelHotClick(Sender: TObject);
@@ -199,7 +199,7 @@ begin
     HRef := TIpHtmlNodeAREA(HotNode).HRef;
     Target := TIpHtmlNodeAREA(HotNode).Target;
   end;
-  debugln(['TLazIPHtmlControl.IPHTMLPanelHotClick HRef="',HRef,'" Target="',Target,'"']);
+  //debugln(['TLazIPHtmlControl.IPHTMLPanelHotClick HRef="',HRef,'" Target="',Target,'"']);
   IDEProvider.OpenURLAsync(HRef);
 end;
 
diff --git a/ide/codehelp.pas b/ide/codehelp.pas
index 19bdb9e862..42323814e8 100644
--- a/ide/codehelp.pas
+++ b/ide/codehelp.pas
@@ -2346,7 +2346,9 @@ begin
         or ((CTNode.Desc in [ctnProcedure,ctnProcedureHead])
             and (CTTool.ProcNodeHasSpecifier(CTNode,psOVERRIDE)))
         then begin
+          {$ifdef VerboseLazDoc}
           debugln(['TCodeHelpManager.GetHTMLHint searching for inherited of ',CTNode.DescAsString,' ',dbgs(XYPos)]);
+          {$endif}
           OldXYPos:=XYPos;
           OldCTTool:=CTTool;
           OldCTNode:=CTNode;
@@ -2354,11 +2356,15 @@ begin
             CTTool,CTNode,XYPos,aTopLine))
           or (CTNode=OldCTNode)
           then begin
+            {$ifdef VerboseLazDoc}
             debugln(['TCodeHelpManager.GetHTMLHint inherited not found: ',dbgs(OldXYPos)]);
+            {$endif}
             break;
           end;
         end else begin
+          {$ifdef VerboseLazDoc}
           debugln(['TCodeHelpManager.GetHTMLHint not searching inherited for ',CTNode.DescAsString]);
+          {$endif}
           break;
         end;
 
@@ -2388,7 +2394,9 @@ begin
     end else
       Result:=chprFailed;
   end;
+  {$ifdef VerboseLazDoc}
   debugln(['TCodeHelpManager.GetHTMLHint ',HTMLHint]);
+  {$endif}
 end;
 
 function TCodeHelpManager.GetPasDocCommentsAsHTML(Tool: TFindDeclarationTool;
diff --git a/ide/idehelpmanager.pas b/ide/idehelpmanager.pas
index 936164f9a0..12695f5845 100644
--- a/ide/idehelpmanager.pas
+++ b/ide/idehelpmanager.pas
@@ -820,7 +820,9 @@ begin
   try
     if Result=nil then begin
       SplitURL(URL,URLType,URLPath,URLParams);
+      {$ifdef VerboseLazDoc}
       DebugLn(['TLIHProviders.GetStream URLType=',URLType,' URLPath=',URLPath,' URLParams=',URLParams]);
+      {$endif}
       if URLType='lazdoc' then begin
         if copy(URLPath,1,8)='lazarus/' then begin
           URLPath:=copy(URLPath,9,length(URLPath));