* allow a range of Low(Longint) to High(DWord) in TryStrToInt, see also issue #39406

  * moved test

rtl/objpas/sysutils/sysstr.inc

@@ -963,7 +963,7 @@ var
   li : Int64;
 begin
   Val(s, li, Error);
-  TryStrToInt:=(Error=0) and (li<=High(Longint)) and (li>=Low(Longint));
+  TryStrToInt:=(Error=0) and (li<=High(DWord)) and (li>=Low(Longint));
   if TryStrToInt then
     i:=li;
 end;