如何批量獲得所串連的客戶機的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;

非常感謝。