Delphi-Quellcode:
var i,c: integer; t:string;
begin
i:=ListBox1.Items.Count; c:=0;
while (c < i) do begin
t:=ListBox1.Items.item[c];
if (MatchHostMask(GetHostMask(t),BanMask)) then
<..code..>
c:=c+1;
end;
end;
ListBox1 ist in diesem Beispiel die Nicklist, mit GetHostMask bekommt man die HostMask des Users und mit MatchHostMask vergleicht man zwei Hostmasks.. genauer möchte ich das jetzt nicht beschreiben, da du sowieso eine Komponente dazu benutzt, da muss das ja irgendwie gehen
hoffe das hat geholfen, cya