diff --git a/examples/htmlhelp_ipro/htmlhelp2unit1.pas b/examples/htmlhelp_ipro/htmlhelp2unit1.pas
index 955d7ae150..933f96d4d2 100644
--- a/examples/htmlhelp_ipro/htmlhelp2unit1.pas
+++ b/examples/htmlhelp_ipro/htmlhelp2unit1.pas
@@ -46,11 +46,9 @@ type
     procedure HelpButtonClick(Sender: TObject);
   private
     { private declarations }
-
   public
     { public declarations }
-
-  end; 
+  end;
 
 var
   Form1: TForm1; 
@@ -65,16 +63,12 @@ begin
   ShowHelpOrErrorForKeyword('','HTML/index.html');  // HTML is case sensitive
 end;
 
-
 procedure TForm1.FormCreate(Sender: TObject);
 begin
   HtmlHelp2Viewer.RegisterHelpViewer;  // This registers the help viewer
                                        // using the iPro viewer
 end;
 
-
-
-
 initialization
   {$I htmlhelp2unit1.lrs}
 
diff --git a/examples/htmlhelp_ipro/htmlhelp2viewer.pas b/examples/htmlhelp_ipro/htmlhelp2viewer.pas
index 05b83a573a..6fa07ad6b7 100644
--- a/examples/htmlhelp_ipro/htmlhelp2viewer.pas
+++ b/examples/htmlhelp_ipro/htmlhelp2viewer.pas
@@ -35,8 +35,9 @@ unit HtmlHelp2Viewer;
 interface
 
 uses
-  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ExtCtrls, LCLProc,
-  IpHtml, Buttons, helpintfs, lazhelpintf, ComCtrls, ipfilebroker, iputils;
+  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ExtCtrls,
+  LCLProc, IpHtml, Buttons, helpintfs, lazhelpintf, ComCtrls, ipfilebroker,
+  iputils;
 
 type
 
@@ -69,7 +70,10 @@ procedure RegisterHelpViewer;
 implementation
 
 type
-THTMLHelpViewer = class(THelpViewer)
+
+  { THTMLHelpViewer }
+
+  THTMLHelpViewer = class(THelpViewer)
   private
   public
     constructor Create(TheOwner: TComponent); override;
@@ -122,20 +126,17 @@ begin
   IHP.GoBack;
 end;
 
-
 procedure THelpViewerForm.ForwardButtonClick(Sender: TObject);
 begin
   IHP.GoForward;
 end;
 
-
 procedure THelpViewerForm.IHPDocumentOpen(Sender: TObject);
 begin
   BackButton.Enabled := IHP.canGoBack;
   ForwardButton.Enabled := IHP.canGoForward;
 end;
 
-
 procedure THelpViewerForm.showURL(URL : String);
 begin
   Show;