Доброго времени суток.

Проблемма следующего содержания:
Через winsocket ловлю приходящие и исходящие пакеты. Под Win2k и win98 все работает отлично.
попробовал на WinXP и ничего у меня не вышло, с одной оговоркой. Если одна из машин находится под управлением win2k или win98,
то пакеты от этих машин лювятся, а пакеты от машины на winXP нет.

Вот код нити по отслеживанию входящих-исходящих пакетов

begin
  sUdp := SizeOf(TIpHeader_)+ SizeOf(TUDPHeader);
  sTcp := SizeOf(TIpHeader_)+ SizeOf(TTCPHeader);
  Fform.Memo1.Clear;
  If  WSAStartup(MAKEWORD(2,2), wsadata) <> 0 then exit;
  s := socket(AF_INET, SOCK_RAW, IPPROTO_IP);
  Name := #00;
  gethostname(name, sizeof(name));
  phe := gethostbyname(name);
  ZeroMemory(@sa, sizeof(sa));
  sa.sin_family := AF_INET;
  sa.sin_addr.s_addr := longint(plongint(phe^.h_addr_list^)^);
  sa.sin_port := htons(8080);
  idr := bind(s, sa, SizeOf(sa));
  flag := 1;
  ioctlsocket(s, SIO_RCVALL, flag);
  While Not Terminated Do
   Begin
    Application.ProcessMessages;
    FillChar(Buffer,SizeOf(Buffer),#0);
    count := recv(s, Buffer, sizeof(Buffer),0);
    If (count >= sTcp)or (count >= sUdp)
     Then
      Begin
       ZeroMemory(@hdr,SizeOf(TIPHeader_));
       CopyMemory(@hdr,@Buffer,SizeOf(TIPHeader_));
       ZeroMemory(@tcphdr,SizeOf(ttcpheader));
       ZeroMemory(@udphdr,SizeOf(tUDPheader));
       sa1.S_addr := hdr.iph_src;
       sa2.S_addr := hdr.iph_dest;
       Case hdr.iph_protocol OF
        IPPROTO_TCP : Begin
                        CopyMemory(@tcphdr,@Buffer[sizeof(TIPHeader)],sizeof(TtcpHeader));
                        Ports := ntohs(tcphdr.th_sport);
                        Portd := ntohs(tcphdr.th_dport);
                       // Fform.Memo1.Lines.Add('TCP - '+inet_ntoa(sa1)+'-'+IntToStr(Ports)+'------>'+inet_ntoa(sa2)+'-'+IntToStr(Portd));
                       End;

         IPPROTO_UDP : Begin
                        CopyMemory(@udphdr,@Buffer[sizeof(TIPHeader)],sizeof(TUDPHeader));
                        Ports := ntohs(udphdr.uh_sport);
                        Portd := ntohs(udphdr.uh_dport);
                       // Fform.Memo1.Lines.Add('UDP - '+inet_ntoa(sa1)+'-'+IntToStr(Ports)+'------>'+inet_ntoa(sa2)+'-'+IntToStr(Portd));
                       End;
        Else
         Ports := 0;
         Portd := 0;
       End;
       if (((sa1.S_addr and inet_addr(PChar(FForm.ipaMask.Text)))= sa1.S_addr) And ((sa2.S_addr and inet_addr(PChar(FForm.ipaMask.Text)))= sa2.S_addr))
        and ((sa1.S_addr = inet_addr(PChar(FForm.ipServer.Text)))Or (sa2.S_addr = inet_addr(PChar(FForm.ipServer.Text))))
        And (FForm.InPorts(Ports) or FForm.InPorts(Portd))
        And (FForm.ClientsWatch(inet_ntoa(sa1)) or FForm.ClientsWatch(inet_ntoa(sa2))) And FForm.isProtocol(hdr.iph_protocol)
       Then
        Begin
          FSum := FSum + ntohs(hdr.iph_length);
          FForm.SetBytes(inet_ntoa(sa1),ntohs(hdr.iph_length),False);
          FForm.SetBytes(inet_ntoa(sa2),ntohs(hdr.iph_length),True);
          FForm.Memo1.Lines.Add(inet_ntoa(sa1)+':'+IntToStr(Ports)+' --> '+inet_ntoa(sa2)+':'+IntToStr(Portd))
        End;
        Synchronize(DoData);
      End;
   End;
  closesocket(s);
  WSACleanup;

Пожалуйста подскажите, в чем дело?