diff --git a/components/jvcllaz/examples/JvHTML/htmltestform.lfm b/components/jvcllaz/examples/JvHTML/htmltestform.lfm
index 969c88c3a..62bde8632 100644
--- a/components/jvcllaz/examples/JvHTML/htmltestform.lfm
+++ b/components/jvcllaz/examples/JvHTML/htmltestform.lfm
@@ -13,9 +13,9 @@ object MainForm: TMainForm
     Height = 384
     Top = 0
     Width = 858
-    ActivePage = pgStringToHTML
+    ActivePage = pgStringsToHTML
     Align = alClient
-    TabIndex = 0
+    TabIndex = 1
     TabOrder = 0
     object pgStringToHTML: TTabSheet
       Caption = 'String to HTML'
diff --git a/components/jvcllaz/examples/JvHTML/htmltestform.pas b/components/jvcllaz/examples/JvHTML/htmltestform.pas
index 590f940d1..c8154df69 100644
--- a/components/jvcllaz/examples/JvHTML/htmltestform.pas
+++ b/components/jvcllaz/examples/JvHTML/htmltestform.pas
@@ -81,6 +81,7 @@ end;
 
 procedure TMainForm.edHTMLTitleChange(Sender: TObject);
 begin
+  JvStringListToHTML1.HTMLTitle := edHTMLTitle.Text;
   MemoChange(nil);
 end;