// Инициализация слушающего сокета
function TSnifferThread.InitSocket: Boolean;
var
   PromiscuousMode: Integer;
begin
   // инициализируем WinSock
   Result := WSAStartup(WSA_VER, WSA) = NOERROR;
   if not Result then
   begin
     LogData := 'Ошибка: ' + SysErrorMessage(WSAGetLastError);
     Synchronize(ShowPacket);
     Exit;
   end;
   // создаем сокет
   hSocket := socket(AF_INET, SOCK_RAW, IPPROTO_IP);
   if hSocket = INVALID_SOCKET then
   begin
     DeInitSocket(WSAGetLastError);
     Exit;
   end;
   FillChar(Addr_in, SizeOf(sockaddr_in), 0);
   Addr_in.sin_family:= AF_INET;
   // указываем за каким интерфейсом будем следить
   Addr_in.sin_addr.s_addr := inet_addr(PChar(Host));
   // связываем сокет с локальным адресом
   if bind(hSocket, Addr_in, SizeOf(sockaddr_in)) <> 0 then
   begin
     DeInitSocket(WSAGetLastError);
     Exit;
   end;
   // Переключаем интерфейс на прием всех пакетов проходящих через интерфейс - promiscuous mode.
   PromiscuousMode := 1;
   if ioctlsocket(hSocket, SIO_RCVALL, PromiscuousMode) <> 0 then
   begin
     DeInitSocket(WSAGetLastError);
     Exit;
   end;
   Result := True;
end;