diff --git a/components/rtticontrols/examples/exampleproject1.lpi b/components/rtticontrols/examples/exampleproject1.lpi
index 21ed6039fc..b6a531f524 100644
--- a/components/rtticontrols/examples/exampleproject1.lpi
+++ b/components/rtticontrols/examples/exampleproject1.lpi
@@ -9,7 +9,7 @@
         <SaveOnlyProjectUnits Value="True"/>
       </Flags>
       <MainUnit Value="0"/>
-      <ActiveEditorIndexAtStart Value="2"/>
+      <ActiveEditorIndexAtStart Value="1"/>
       <IconPath Value="./"/>
       <TargetFileExt Value=""/>
       <Title Value="exampleproject1"/>
@@ -24,7 +24,7 @@
         <UsageCount Value="29"/>
       </Unit0>
       <Unit1>
-        <CursorPos X="74" Y="26"/>
+        <CursorPos X="73" Y="26"/>
         <EditorIndex Value="0"/>
         <Filename Value="example1.pas"/>
         <ComponentName Value="Form1"/>
diff --git a/components/rtticontrols/rttictrls.pas b/components/rtticontrols/rttictrls.pas
index 360a507c72..5e4b3b88fe 100644
--- a/components/rtticontrols/rttictrls.pas
+++ b/components/rtticontrols/rttictrls.pas
@@ -1540,6 +1540,8 @@ begin
   else
     AText:='Error while reading property'#13+E.Message;
   MessageDlg(ACaption,AText,mtError,[mbCancel],0);
+  if Writing then
+    LoadFromProperty;
 end;
 
 procedure TCustomPropertyLink.MapValues(Values, AliasStrings: TStrings;