Определить, занят ли порт сокета

- Смайлик видишь?
- Нет.
- И я не вижу. А он есть.

var SockAddrIn : TSockAddrIn;
    FSocket    : TSocket;

  ...

  If  bind(FSocket, SockAddrIn, SizeOf(SockAddrIn)) <> 0 Then
  begin
    обрабатываем WSAGetLastError
  end;

Clever Internet Suite

Интернет-компоненты Clever Internet Suite — набор компонентов для Delphi/C++Builder, позволяющих реализовать обмен данными по сети в вашем приложении. С помощью Clever Internet Suite вы можете реализовать различные функции для работы в сети интернет: скачивание файлов, отправка данных, введенных пользователем, рассылка и получение почты, использовать клиенты HTTP, FTP, SMTP, POP3, IMAP и NNTP; серверы SMTP, POP3, IMAP и FTP и многое другое.