Code:

var SockAddrIn : TSockAddrIn;

   FSocket    : TSocket;

...

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

begin

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

end;