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