CPU Last bei 100% bei client := listener.AcceptTcpClient();

[winx]

Kann mir jemand helfen, ich habe in der Funktion

Delphi-Quellcode:

procedure TServer.run;
var client : TcpClient;
begin

  while(true) do begin

    // Wartet auf eingehenden Verbindungswunsch
    client := listener.AcceptTcpClient();
    // Initialisiert und startet einen Server-Thread
    // und fügt ihn zur Liste der Server-Threads hinzu
    serverThreads.Add(TServerThread.Create(client));

  end;

end;

100% CPU Last, wenn er auf einen Client wartet...

danke,
winx