IdTCPServer отправка сообщений.

[gusluk]

Передаю с сервера клиенту сообщения таким кодом:

TIdPeerThread(form1.IdTCPServer1.Threads.LockList.Items[0]).Connection.WriteLn('ssss);
TIdPeerThread(form1.IdTCPServer1.Threads.LockList.Items[0]).Connection.WriteLn('mmmm');
TIdPeerThread(form1.IdTCPServer1.Threads.LockList.Items[0]).Stop;
form1.IdTCPServer1.Threads.UnlockList;

Все сообщения клиент получает, но когда я пытаюсь закрыть сервер, он зависает и приходится его отрубать в диспетчере задач.
Как это исправить?

[Квэнди]

сначала выполни disconnect с всеми клиентами или просто уничтож все потоки.

[gusluk]

Квэнди, напиши пожалуйста пример уничтожения потоков, а то чего то я не могу с ними разобраться.
Попробовал на событие OnClose поставить такой код:

TIdPeerThread(form1.IdTCPServer1.Threads.LockList.Items[0]).Connection.Disconnect;
TIdPeerThread(form1.IdTCPServer1.Threads.LockList.Items[0]).Connection.Destroy;

Толку нет.

[Квэнди]

ну тогда для начала дебагом посмотрите чего именно ждет приложение перед закрытием