diff --git a/components/tvplanit/examples/datastores/xml/project1.lpi b/components/tvplanit/examples/datastores/xml/project1.lpi
index 31e45ec8a..4f661d701 100644
--- a/components/tvplanit/examples/datastores/xml/project1.lpi
+++ b/components/tvplanit/examples/datastores/xml/project1.lpi
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
   <ProjectOptions>
-    <Version Value="11"/>
+    <Version Value="10"/>
     <PathDelim Value="\"/>
     <General>
       <SessionStorage Value="InProjectDir"/>
@@ -17,10 +17,9 @@
       <Version Value="2"/>
     </PublishOptions>
     <RunParams>
-      <FormatVersion Value="2"/>
-      <Modes Count="1">
-        <Mode0 Name="default"/>
-      </Modes>
+      <local>
+        <FormatVersion Value="1"/>
+      </local>
     </RunParams>
     <RequiredPackages Count="2">
       <Item1>
diff --git a/components/tvplanit/examples/datastores/xml/unit1.lfm b/components/tvplanit/examples/datastores/xml/unit1.lfm
index 79ed42b3d..7da67e7d5 100644
--- a/components/tvplanit/examples/datastores/xml/unit1.lfm
+++ b/components/tvplanit/examples/datastores/xml/unit1.lfm
@@ -7,8 +7,7 @@ object Form1: TForm1
   ClientHeight = 686
   ClientWidth = 980
   OnCreate = FormCreate
-  OnDestroy = FormDestroy
-  LCLVersion = '1.9.0.0'
+  LCLVersion = '1.8.4.0'
   object Panel1: TPanel
     Left = 0
     Height = 33
diff --git a/components/tvplanit/examples/datastores/xml/unit1.pas b/components/tvplanit/examples/datastores/xml/unit1.pas
index 14f7a327c..e8d15ac27 100644
--- a/components/tvplanit/examples/datastores/xml/unit1.pas
+++ b/components/tvplanit/examples/datastores/xml/unit1.pas
@@ -39,7 +39,6 @@ type
     procedure BtnNewResClick(Sender: TObject);
     procedure BtnEditResClick(Sender: TObject);
     procedure FormCreate(Sender: TObject);
-    procedure FormDestroy(Sender: TObject);
   private
     { private declarations }
   public
@@ -87,10 +86,5 @@ begin
   end;
 end;
 
-procedure TForm1.FormDestroy(Sender: TObject);
-begin
-  VpXMLDatastore1.Connected := false;
-end;
-
 end.
 
diff --git a/components/tvplanit/source/vpxmlds.pas b/components/tvplanit/source/vpxmlds.pas
index 8786ab77b..ef6602ceb 100644
--- a/components/tvplanit/source/vpxmlds.pas
+++ b/components/tvplanit/source/vpxmlds.pas
@@ -740,7 +740,6 @@ begin
   ev.EndTime := t2;
   ev.SnoozeTime := GetDateTimeAttrValue(ANode, 'SnoozeTime', FXmlSettings);
   ev.RepeatRangeEnd := GetDateTimeAttrValue(ANode, 'RepeatRangeEng', FXmlSettings);
-  ev.CustomInterval := GetIntAttrValue(ANode, 'CustomInterval');
 
   s := GetAttrValue(ANode, 'AlarmAdvanceType');
   if s <> '' then begin
@@ -759,6 +758,7 @@ begin
     else
       XMLError(Format('Incorrect RepeatCode value: "%s"', [s]));
   end;
+  ev.CustomInterval := GetIntAttrValue(ANode, 'CustomInterval');
 
   node := ANode.FirstChild;
   while node <> nil do begin