Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

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

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

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