请问：在Delphi中如何得到服务端口号?(95分)

我在NT上安装了IMS软件,并在control panel=>服务中看到
已启动IMS POP3 Server,IMS SMTP Delivery Agent,IMS
SMTP Receiver这几个服务，并在control panel新增了
EMWAC IMS图标，可是我在LAN中发邮件时(我一配置了
outlook邮件属性)，系统提示：
无法连接服务器，协议POP3,端口110....
我在服务器命令行上执行：telnet 机器名 110，
系统提示：连接失败，而我在服务器命令行上执行：
telnet 机器名 25，却可以连接成功。
我以为:虽然POP3服务已启动,但telnet 机器名 110不能连接,我怀疑是POP3的
端口不是110,我想用Delphi编写一个程序,通过此程序来获得已启动的
服务的端口号,请问:该如何写此程序?谢谢.

你可以用pop3构件，从端口1－－65535，一一hello 一遍，有会应的就是你要找的
端口了

telnet 地址 pop3
如何？如果可以，改winnt/system32/drivers/etc/services

<font color=green>netbug,你可不可以做得不要太过分？我都替你结束了好几十个问题了。
问0分的问题大家也一样回答你，但是那些问题别人回答了你也不给一个意见？
你这样做尊重别人么？？？还有好像你来这里光是问问题而不回答问题？（当然这
一点不是很重要！）</font>

多人接受答案了。