Don’t cache process ID.

rtl/win/syswin.inc

@@ -568,14 +568,9 @@ begin
    end;
 end;
 
-{ ProcessID cached to avoid repeated calls to GetCurrentProcess. }
-
-var
-  ProcessID: SizeUInt;
-
 function GetProcessID: SizeUInt;
   begin
-    GetProcessID := ProcessID;
+    GetProcessID := GetCurrentProcessID;
   end;
 
 

rtl/win32/system.pp

@@ -651,7 +651,6 @@ initialization
   InitSystemDynLibs;
   { Reset IO Error }
   InOutRes:=0;
-  ProcessID := GetCurrentProcessID;
   DispCallByIDProc:=@DoDispCallByIDError;
 
 finalization

rtl/win64/system.pp

@@ -511,7 +511,6 @@ initialization
   InitSystemDynLibs;
   { Reset IO Error }
   InOutRes:=0;
-  ProcessID := GetCurrentProcessID;
   DispCallByIDProc:=@DoDispCallByIDError;
 
 finalization