есть приложение с IdTCPServer (indi9). конектится и дисконектится с клиентами нормально, но если я принудительно отключаю сервер при активных подключениях выдает ошибку и сервер зависает.
код остановки сервера:


пробовал и так

List := IdTCPServer1.Contexts.LockList;
try
 for i := 0 to List.Count - 1 do begin
   try
     TIdContext(List[i]).Connection.Disconnect;
   except
   end;
 end;
 IdTCPServer1.Active := false;
finally
 IdTCPServer1.Contexts.UnlockList;
end;

1)это куда вставить то нужно
2) как и где объявлять List
3) у меня свойства  Contexts у IdTCPServer1 нет

с List разобрался
ругается на TIdContext пишет что нигде не обьявлен
[Error] Unit1.pas(841): Undeclared identifier: 'TIdContext'

Добавь модуль, где описан TIdContext в uses. И почитай уже азы программирования на Delphi :)