From 2425b97462511d983418a82343cb956b64e7d12a Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Mon, 8 Jul 2019 10:24:00 +0000
Subject: [PATCH] * Patch from Maciej Izak to allow loading multiple times

git-svn-id: trunk@42343 -
---
 packages/fcl-base/src/fileinfo.pp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/packages/fcl-base/src/fileinfo.pp b/packages/fcl-base/src/fileinfo.pp
index 2b582152d9..23bd706250 100644
--- a/packages/fcl-base/src/fileinfo.pp
+++ b/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;