[lazarus] htmlhelp1 example patch

[Andrea Mauri]

Checking the htmlhelp1.lpi example I found an error, I don't know how to
apply a patch so I tried to create one.
I attached it.
Once applied the patch also the oncreate event should be removed by the
form.
Without this patch the example does not work, applying it the example
works both on windows and linux.
let me know if the patch is correct or if there are other ways to apply
and create patches.
andrea


***************
*** 65,71 ****
      Edit2: TEdit;
      HTMLBrowserHelpViewer1: THTMLBrowserHelpViewer;
      HTMLHelpDatabase1: THTMLHelpDatabase;
-     procedure FormCreate(Sender: TObject);
      procedure HelpButtonClick(Sender: TObject);
    private
      { private declarations }
--- 65,70 ----
***************
*** 86,94 ****
    ShowHelpOrErrorForKeyword('','HTML/index.html');
  end;
  
- procedure TForm1.FormCreate(Sender: TObject);
- begin
-   HTMLHelpDatabase1.BaseURL:='/usr';
  end;
  
  initialization
--- 85,88 ----