Определить, занят ли порт сокета
Материал из DRKB
var
SockAddrIn: TSockAddrIn;
FSocket: TSocket;
begin
if bind(FSocket, SockAddrIn, SizeOf(SockAddrIn)) <> 0 then
begin
// обрабатываем WSAGetLastError
end;
end;
Source: Взято с http://delphiworld.narod.ru
ID: 03554