Portas usando Delphi...(internet)

Eu desenvolvi um scanner de portas em delphi.
Gostaria que esse mesmo programa tivesse uma rotina para identificar todas as portas abertas do meu micro!?
E estou sem raciocinio!?

Só resta está parte para mim terminar meu software de segurança....

Muito grato se responderem....