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

在一个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;

非常感谢。