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

* moved test

(cherry picked from commit 435f3a9fe2)

rtl/objpas/sysutils/sysstr.inc

@@ -962,7 +962,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;