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

Question

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

Answer 1

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