Ich verwende die TSnoop Komponente. Projekt dazu wurde glaube ich mittlerweile eingestellt.
Delphi-Quellcode:
procedure TForm1.SnoopUDP1CaptureUDP(Sender: TObject;
PacketHeader: PPCAP_PKTHDR; EthernetHeader: PETHERNET_HDR; IPHeader: PIP_HDR;
UDPHeader: PUDP_HDR);
begin
if ( isBanned(snoopIP2Str(IPHeader.Source)) ) then
// TODO - blockiere das Paket
end;