Поток блокирует выполнение другого потока

[Levsha100]

Пытаюсь сделать много поточный веб-сервер, туплю в одном месте:
Есть поток который в цикле принимает клиентов

procedure TListener.Listen;
var
ClientSocket:TSocket;
addr:TSockAddr;
addrLength:integer;
begin
  addMessage('Start Listen');
  addrLength:=sizeOf(addr);
  while not terminated do
  begin
    addMessage('Listen');
    ClientSocket:=accept(ServerSocket, @addr, @addrLength);
    if ClientSocket <> INVALID_SOCKET then
      addClient(ClientSocket);
  end;
end;

Когда мы приняли клиента создаем новый поток присваиваем ему сокет и запускаем

procedure addClient(sock:TSocket);
begin
  addMessage('addClient');
  setLength(clients, length(clients)+1);
  clients[length(clients)-1]:=ClientThread.Create(true);
  clients[length(clients)-1].ClientSocket:=sock;
  clients[length(clients)-1].Execute;
end;

Тут обрабатываем сообщения клиента

procedure ClientThread.Execute();
begin
  addMessage('Client start');
  while not Terminated do
  begin
end;
end;

Проблема в том что ClientThread.Execute(); блокирует выполнение TListener.Listen то есть постоянно работает тот пустой цикл.
Непонятно почему, ведь он в другом потоке.

[Пепел Феникса]

не нужно вызывать Execute потока.
это внутренний метод, и поток сам его вызовет.

[Levsha100]

А как запустить поток если я не запускаю его в ClientThread.Create(true); ?

[Аватар]

Метод Resume

[Levsha100]

Спасибо

[Slym]

кто подчищает массив clients от дохляков?
если другой поток то имеется грабля многопоточного доступа