* correctly read the region label in $region directives, resolves #39395

compiler/scandir.pas

@@ -1914,6 +1914,8 @@ unit scandir;
 
     procedure dir_region;
       begin
+        current_scanner.skipspace;
+        current_scanner.readquotedstring;
       end;
 
     procedure dir_endregion;

tests/webtbs/tw39395.pp

@@ -0,0 +1,6 @@
+{$mode delphi}
+
+{$region ' { somelabel } '}
+
+begin
+end.