Delphi - Firewall con delphi

Hola... quisiera escribir una app tipo firewall, que me avise cuando se abre un puerto hacia internet, para poder cerrarlo si quiero; pero no estoy seguro si usar un socket para que vaya mirando que puertos hay abiertos, o si existe alguna funcion api que pueda usar para notificar que se abre un puerto sin tener que mirar uno a uno...¿alguien puede ayudarme?