[fossil]

Только мне не понятно зачем ты два раза прописал hdr.protocol?

Код:

case hdr.protocol of
        IPPROTO_TCP:
        begin
          tcphdr := PTCPHeader(@Buffer[20]);
          outstr := outstr + ':' + IntToStr(InvertWord(tcphdr.srcport));
        end;
        IPPROTO_UDP:
        begin
          udphdr := PUDPHeader(@Buffer[20]);
          outstr := outstr + ':' + IntToStr(InvertWord(udphdr.srcport));
        end;
      end;