diff --git a/lazproj/coedit.lpi b/lazproj/coedit.lpi
index 0a9baf1a..dd084833 100644
--- a/lazproj/coedit.lpi
+++ b/lazproj/coedit.lpi
@@ -317,6 +317,7 @@
       <Unit34>
         <Filename Value="..\src\ce_writablecomponent.pas"/>
         <IsPartOfProject Value="True"/>
+        <UnitName Value="ce_writableComponent"/>
       </Unit34>
       <Unit35>
         <Filename Value="..\src\ce_sharedres.pas"/>
diff --git a/src/ce_writablecomponent.pas b/src/ce_writablecomponent.pas
index aaed9a59..8a8a02b9 100644
--- a/src/ce_writablecomponent.pas
+++ b/src/ce_writablecomponent.pas
@@ -107,21 +107,15 @@ begin
 end;
 
 procedure TCustomWritableComponent.loadFromFile(const aFilename: string);
-var
-  err: boolean;
 begin
-  err := false;
-  fHasLoaded := false;
+  fHasLoaded := true;
   beforeLoad;
   setFilename(aFilename);
   try
     customLoadFromFile(aFilename);
   except
-    err := true;
     fHasLoaded := false;
   end;
-  if not err then
-    fHasLoaded := true;
   afterLoad;
 end;
 {$ENDREGION}