FIX: Show Project name in root folder request

Author: PascalCorpsman

src/ufpc_understand.pas

@@ -1148,7 +1148,7 @@
   fChanged := false;
   If (cnt <> 0) Or (fFiles.LPISource <> '') Then Begin
     If (fFiles.RootFolder = '') Or ((fFiles.RootFolder <> '') And Not DirectoryExistsUTF8(fFiles.RootFolder)) Then Begin
-      ShowMessage('Your project root folder seems to be invalid, please select a correct one for: ' + fFiles.LPISource);
+      ShowMessage('The root folder of the loaded project "' + fGeneral.ProjectName + '" seems to be invalid, please select a correct root folder for: ' + fFiles.LPISource);
       fFiles.RootFolder := '';
       If SelectDirectory('Root folder for: ' + fFiles.LPISource, '', fFiles.RootFolder) Then Begin
         fFiles.RootFolder := IncludeTrailingPathDelimiter(fFiles.RootFolder);