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

var
 SockAddrIn : TSockAddrIn;
    FSocket    : TSocket;

  ...

  If
  bind(FSocket, SockAddrIn, SizeOf(SockAddrIn)) <> 0 Then

  begin

    обрабатываем WSAGetLastError
  end
;

Другое по теме:

• CrtSock - модуль для работы с сокетами в Delphi32
• TServerSocket и TClientSocket без scktsrvr.exe отказываются работать
• Асинхронная ошибка