Skipping invalid json file

Author: lmbelo

Modules/DelphiFMX/uMain.pas

@@ -61,6 +61,8 @@ function TryLoadVerFromModuleDefs(): boolean;
   var LFilePath := GetModuleDefsJSONFilePath();
   if TFile.Exists(LFilePath) then begin
     var LJson := TJSONObject.ParseJSONValue(TFile.ReadAllText(LFilePath));
+    if not Assigned(LJson) then
+      Exit(false);
 
     var LPythonHome := String.Empty;
     if LJson.TryGetValue<string>('python_home', LPythonHome) then begin