diff --git a/packages/fcl-process/src/process.pp b/packages/fcl-process/src/process.pp
index 24ceac2dd6..fe9b1648d1 100644
--- a/packages/fcl-process/src/process.pp
+++ b/packages/fcl-process/src/process.pp
@@ -26,7 +26,7 @@ Type
                     poUsePipes,poStderrToOutPut,
                     poNoConsole,poNewConsole,
                     poDefaultErrorMode,poNewProcessGroup,
-                    poDebugProcess,poDebugOnlyThisProcess,
+                    poDebugProcess,poDebugOnlyThisProcess,poDetached,
                     poPassInput,poRunIdle);
 
   TShowWindowOptions = (swoNone,swoHIDE,swoMaximize,swoMinimize,swoRestore,swoShow,
diff --git a/packages/fcl-process/src/win/process.inc b/packages/fcl-process/src/win/process.inc
index 6a58cbdaf4..01426d29de 100644
--- a/packages/fcl-process/src/win/process.inc
+++ b/packages/fcl-process/src/win/process.inc
@@ -82,6 +82,9 @@ begin
       Result:=Result or DEBUG_ONLY_THIS_PROCESS;
     if poDefaultErrorMode in Options Then
       Result:=Result or CREATE_DEFAULT_ERROR_MODE;
+    if poDetached in Options Then
+      Result:=Result or DETACHED_PROCESS;
+
     result:=result or PriorityConstants[FProcessPriority];
     end;
 end;