diff --git a/packages/fcl-process/src/win/process.inc b/packages/fcl-process/src/win/process.inc
index 2478578d39..743afd4a0b 100644
--- a/packages/fcl-process/src/win/process.inc
+++ b/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;
 
diff --git a/packages/fcl-web/src/base/fpmimetypes.pp b/packages/fcl-web/src/base/fpmimetypes.pp
index 6d737ed9b3..db431cc355 100644
--- a/packages/fcl-web/src/base/fpmimetypes.pp
+++ b/packages/fcl-web/src/base/fpmimetypes.pp
@@ -266,7 +266,7 @@ begin
           aType:= Reg.ReadString('Content Type');
           Reg.CloseKey;
           if aType<>'' then
-            AddType(aType,Ext);
+            AddType(aType,Copy(Ext,2,Length(Ext)-1));
           end;
         end;
       Reg.CloseKey;