Port Scanning Utility

We have used the sockets controls within delphi to write many very
nice utilities for management.

Well now they want another one. The ability of us to scan a specified
machine for available ports.

Does anyone know a web site with code sample or willing to share a
simple code sample that just scans a specifed IP address for ports open
that can be logged into.