Indy 10 TIdTCPServer in Thread

[Klaus01]

Delphi-Quellcode:

   if assigned(FServer) then
      begin
        if FServer.Contexts.LockList.Count > 0 then
          for i:=0 to FServer.Contexts.LockList.Count -1 do
            begin
              TIdContext(FServer.Contexts.LockList[i]).Connection.IOHandler.CloseGracefully;
            end;
        FServer.Contexts.UnlockList;
        FServer.Active:=false;
        sleep(150);
        FServer.free;

Wobei hier FServer vom Typ TIdTCPServer ist.

Grüße
Klaus