Cześć
Wykorzystaj zdarzenie OnClientConnect. Umieść np. takie linijki w obsłudze tego zdarzenia:
- Kod: Zaznacz cały
AnsiString adres_klienta;
AnsiString zakazany_klient = "192.168.1.5";
adres_klienta = Socket->RemoteAddress;
Teraz masz już adres klienta, który aktualnie się połączył. Możesz teraz je porównać i gdy taki sam to brutalnie

zamknąć gniazdo:
- Kod: Zaznacz cały
Socket->Close();
Nie próbowałem, ale powinno działać. Tylko nie wiem jak zachowa się serwer gdy wcześniej już kilku jest podłączonych i czy ich też wywali, ale chyba tylko tego banite.
Próbuj i odpisz.
Pozdrawiam