* Patch from Maciej Izak to allow loading multiple times

git-svn-id: trunk@42343 -

packages/fcl-base/src/fileinfo.pp

@@ -172,7 +172,10 @@ procedure TVersionInfo.FreeResources;
 
 begin
   if Assigned(FResources) then
-    FreeAndNil(FResources)
+    begin
+      FreeAndNil(FResources);
+      FVersionInfo := nil;
+    end
   else
     FreeAndNil(FVersionInfo);
 end;