* Patch by C Western to fix use of uninitialized lock (bug ID 31682

git-svn-id: trunk@35879 -

packages/fcl-process/src/simpleipc.pp

@@ -653,7 +653,8 @@ begin
   try
     MsgItem:=FQueue.Pop;
   finally
-    LeaveCriticalsection(FLock);
+    if DoLock then
+      LeaveCriticalsection(FLock);
   end;
   Result:=Assigned(MsgItem);
   if Result then