如何批量获得所连接的客户机的IP地址？

如何批量获得所连接的客户机的IP地址？ Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiNetwork/html/delphi_20061218103349101.html

在一个C/S模式的Delphi程序中，
客户端有一个通信托盘，用indy组件板中的idtcpclient控件。
服务器端用indy组件板中的idtcpserver控件,并用一个dbGrid组件，用于显示所连接的客户机的IP地址及机器名。
问题是：如何获得所连接的客户机的IP地址并显示出来？请高手帮下，谢谢
由于我是个新手，没有分给大家了，还请大家海涵。。。

up

try
with idtcpserver.LockList do
for i:=0 to Count-1 do
TIdPeerThread(Items[i]).Connection.Socket.Binding.PeerIP
finally
idtcpserver.UnlockList;
end;

非常感谢。