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

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

Взято с https://delphiworld.narod.ru