* Add assigned check to reading fileinfo for case there is no fileinfo section.

    Mantis #26549, patch by Reinier.

git-svn-id: trunk@28304 -

packages/fcl-base/src/fileinfo.pp

@@ -194,7 +194,8 @@ begin
     Inc(I);
     end;
   // This will read the info.
-  FVersionInfo.FixedInfo;
+  if assigned(FVersionInfo) then
+    FVersionInfo.FixedInfo;
 end;
 
 procedure TVersionInfo.Load(Const Instance: THandle);