Como Scanear puertos con delphi 7

[[kurono]]

hola amigos del foro como estan les cuento que hace dos dias estaba biendo unos videos tutoriales de seguridad informatica y en ese video utilizaban algunos programas para scanear y dectectar los puertos abiertos que tenia la pc pero algo que ellos no demostraron fue como cerrar esos puerto y ya visto ese video me surgio la idea de crear mi propio Scaneo de puerto utilizando los componente SocketClient y SocketServer pero e notado que esos componete solo manejan un puerto a la ves y me pregunto como se podria hacer un scaneo de los puerto de una pc y poder tener la posibilidad de cerrarlo