Работа с брандмауэром

[aesoem]

Добрый день...
Есть клиент-серверное приложение, сервер видя подозрительную активность вносит ip клиента в черный список, и далее я в событии onAccept компонента ServerSocket проверяю и рву коннект

   for I := 0 to Filterconnectform.ListBox2.Items.Count-1 do
   if filterconnectform.blokList.Items.Strings[i]=socket.RemoteAddress then
    begin
       Filterconnectform.blokList.Items.Add(datetimetostr(now)+' - Заблокирован клиентский модуль '+socket.RemoteAddress);
       socket.Close;
       block:=true;
       break;
       exit;
    end;

все работает, но, я так понимаю это лишняя нагрузка и в будущем оно мне боком выйдет...
Есть идея автоматически создавать правила для брандмауэра на блокировку этих IP адресов. Или это тоже самое по нагрузке на канал?

Что лучше, вести свой черный список, или учится работать с брандмауэром, и блокировать ип с его помощью?

[aesoem]

блин) впервые мне справка виндовс помогла...
а netsh advfirewall интересная весчь....