portas

Como eu posso abrir ou fexar uma determinada porta do meu pc utilizando um programa em delphi?
existe alguma função que faça isso?
( como se fosse um firewall )