diff --git a/packages/fcl-base/src/fpthreadpool.pp b/packages/fcl-base/src/fpthreadpool.pp
index dea982f74f..dafb1265df 100644
--- a/packages/fcl-base/src/fpthreadpool.pp
+++ b/packages/fcl-base/src/fpthreadpool.pp
@@ -851,6 +851,8 @@ end;
 
 function TFPCustomSimpleThreadPool.AddTask(aTask: TThreadPoolTask): Boolean;
 begin
+  While ThreadCount<MinThreads do
+    FTaskList.AddThread;
   CheckQueuedTasks;
   Result:=DoAddTask(aTask);
   if (not Result) and QueueTasks then