diff --git a/components/tvplanit/examples/fulldemo/demomain.lfm b/components/tvplanit/examples/fulldemo/demomain.lfm
index 92635ab33..7b85ff5c0 100644
--- a/components/tvplanit/examples/fulldemo/demomain.lfm
+++ b/components/tvplanit/examples/fulldemo/demomain.lfm
@@ -57,7 +57,7 @@ object MainForm: TMainForm
       Height = 528
       Top = 48
       Width = 834
-      PageIndex = 3
+      PageIndex = 0
       Align = alClient
       TabOrder = 1
       TabStop = True
diff --git a/components/tvplanit/examples/fulldemo/demomain.pas b/components/tvplanit/examples/fulldemo/demomain.pas
index b9b2f1cd1..87caeafc4 100644
--- a/components/tvplanit/examples/fulldemo/demomain.pas
+++ b/components/tvplanit/examples/fulldemo/demomain.pas
@@ -564,7 +564,7 @@ end;
 procedure TMainForm.lbOtherResourcesClickCheck(Sender: TObject);
 var
   i, n: Integer;
-  resArray: TVpResourceArray;
+  resArray: TVpResourceArray = nil;
 begin
   // Collect resources checked for overlaying in an array
   SetLength(resArray, lbOtherResources.Items.Count);
@@ -766,7 +766,7 @@ var
   w: Integer;
 begin
   // Settings page
-  w := MaxValue([
+  w := {%H-}MaxValue([
     GetLabelWidth(LblLanguage),
     GetLabelWidth(LblTimeFormat),
     GetLabelWidth(LblFirstDayOfWeek),