TCP Kill Delphi

Alguém sabe uma função delphi aonde eu possa encerar uma conexão tcp informando um ip

basicamente como se fosse um antiddos, eu apenas informo o IP e a conexão é encerrada