diff --git a/TCIServer.pas b/TCIServer.pas
index 496558e..c639b7c 100644
--- a/TCIServer.pas
+++ b/TCIServer.pas
@@ -868,6 +868,22 @@ begin
   Result := True;
 end;
 
+procedure JoinPumped(var T: TThread);
+// Ожидание выхода потока с прокачкой очереди Synchronize — то же, что делает
+// шаг 4 в Stop, но для accept- и тик-потока. Глухой WaitFor тут — взаимный
+// клин: тик-поток из ReapClients зовёт Disconnected → адаптер → Invoke, а
+// Invoke это TThread.Synchronize к потоку контроллера, то есть ровно к тому,
+// кто сейчас ждёт в WaitFor. Проверка CanInvoke у адаптера не спасает: она
+// читает Stopping ДО входа в Synchronize, и клиент, отвалившийся в момент
+// остановки сервера, успевает проскочить в это окно.
+begin
+  if T = nil then Exit;
+  while not T.Finished do
+    if GetCurrentThreadId = MainThreadID then CheckSynchronize(5) else Sleep(5);
+  T.WaitFor;          // Finished взводится уже после DoTerminate — не блокирует
+  FreeAndNil(T);
+end;
+
 procedure TTCIServer.KillAll;
 var i: Integer;
 begin
@@ -897,11 +913,11 @@ begin
   end;
 
   // Шаг 2: дожидаемся accept-потока — после него новых клиентов не появится.
-  if FAcceptThread <> nil then begin FAcceptThread.WaitFor; FreeAndNil(FAcceptThread); end;
+  JoinPumped(FAcceptThread);
 
   // Шаг 3: будим клиентские потоки, висящие в recv, и останавливаем тик.
   KillAll;
-  if FTickThread <> nil then begin FTickThread.WaitFor; FreeAndNil(FTickThread); end;
+  JoinPumped(FTickThread);
 
   // Шаг 4: ждём выхода клиентских потоков — БЕЗ таймаута. Прокачивая очередь
   // Synchronize: Stop зовёт поток контроллера (UI), а клиентский поток может