Помощь с чатом для сети через TServerS\TClientSocket и компонентами!

[BASSON_XVI]

Решил по изучать дельфи. Особенно интересует работа с сетью и интернетом. Можно ли предоставить какой ни будь простой примерчик для получения ИП адресов компов находящихся в сети уже битый час гуглю и нефига. Как можно предотвратить вылетание ошибки когда CLientSocket конектиться к несуществуешему серверу пробывал так

try
CLientSocket.Active := true;
except
end;

но ошибка все равно вылетает.
Может ктонить знает готовую компоненту для отображения текста и смайлов в переписке?
Прошу сильно не пинать..

[BASSON_XVI]

Собственно вопрос таков! Как узнать какой Ип отключился от сервера?
В принципе у меня есть массив ип адресов которые подключены. Просто не хочется по событию OnDisconnect опрашивать каждого пользователя на доступность. может есть какой ни будь альтернативный вариант?