Este programa muestra la salida del comando "netstat" dando información de las conexiones activas mostrando la Ip local, Ip remota, puerto, estado (listening, established, close_wait, closed, time_wait), pid y proceso asociado a la conexión.
Lo más fácil sería abrir un shell, ejecutar el comando netstat y mostrar su salida, pero para los quieren saber más aquí tienen su programación en Delphi utilizando la unit iphelp.pas
Referencia: club delphi

Código fuente