Server beenden Problem bei TIdTCPServer...

[APALAND]

Hallo,
versuchs mal mit der folgenden Funktion

function Tform1.stopServer: boolean;
begin
try
idtcpserver.TerminateWaitTime := 1000;
idtcpserver.Bindings.clear;
IdTCPServer.Active := false;
Result := not IdTCPServer.Active;
except
result := false;
end;
end;

ich hatte dies Problem auch, und konnte es erst lösten nachdem ich die TerminateWaitTime gesetzt hatte.