diff --git a/packages/fcl-base/src/inc/process.pp b/packages/fcl-base/src/inc/process.pp
index 6d8f3a1d8c..3b6578116a 100644
--- a/packages/fcl-base/src/inc/process.pp
+++ b/packages/fcl-base/src/inc/process.pp
@@ -56,7 +56,6 @@ Type
     FCurrentDirectory : String;
     FDesktop : String;
     FEnvironment : Tstrings;
-    FExitCode : Cardinal;
     FShowWindow : TShowWindowOptions;
     FInherithandles : Boolean;
     FRunning : Boolean;
@@ -85,6 +84,8 @@ Type
     procedure SetEnvironment(const Value: TStrings);
     function  PeekExitStatus: Boolean;
   Protected  
+    FRunning : Boolean;
+    FExitCode : Cardinal;
     FInputStream  : TOutputPipeStream;
     FOutputStream : TInputPipeStream;
     FStderrStream : TInputPipeStream;