如何实现delphi循环ping多个IP

就是我在用delphi编写一个监控软件，就是比如我添加ip地址(地址肯定不止一个)，然后ping这些地址，(通过button开始监控)如果不通了，那么就会发出报警声音！然后颜色字体改变！现在就是最核心的部分ping而且是不间断同时循环ping多个地址，这个代码要怎么做？同时PING多个IP的包是默认大小的包，如果我想加个能够控制包的大小和PING的时间长短，单PING一个IP的功能，代码该怎么写？那位仁兄赶紧帮帮我！！！！！！跪谢！！！！！

[此贴子已经被作者于2007-2-14 11:33:14编辑过]