Indy服务器关闭所有客户端连接

原先都用

idServer.Active := false;

一直没有问题，最近却出现了卡死现象。

后来改用下面的方式，就没有问题了。

var
  j : integer;
  i: integer;
  AList: TList;
begin
  AList := idServer.Contexts.LockList;
  try
    for i := AList.Count - 1 downto 0 do
    begin
     TIdContext(AList.Items[i]).Connection.Disconnect;
    end;
  finally
    idServer.Contexts.UnlockList;
  end;
end;