* manually added the fix done in main in f35a565f4eedb53ef47faf2bd12fabe9f02b848c

packages/fcl-process/src/win/process.inc

@@ -40,7 +40,7 @@ Function TProcessnamemacro.PeekExitStatus : Boolean;
 begin
   Result:=GetExitCodeProcess(ProcessHandle,FExitCode) and (FExitCode<>Still_Active);
   // wait up to 10ms extra till process really done to get rest of input bug #39821
-  if not Result Then
+  if Result Then
     WaitForSingleObject(FProcessHandle,10);
 end;