Indy局域网聊天，上线后如何通知各Client端知道呢？

Indy局域网聊天，上线后如何通知各Client端知道呢？查了半天资料，也没有搞明白是怎么回事

广播消息？？

首先，定义一个全局的记录和指针，在TCPServerExecute事件中，拦截连接的信息
with AThread.Connection do .....，
使用上述的记录来存放新连接客户端的地址等信息，并循环记录的个数，用该指针对已经连接的客户端进行通讯，逐个通知该通知的客户。

var
  Alist: Tlist;
  i: Integer;
begin
  Alist := IdTCPServer1.Threads.LockList;
  for i := 0 to Alist.Count-1 do
  begin
  TIdPeerThread(Alist.Items[i]).Connection.WriteLn('12345678');
  //TIdPeerThread(Alist.Items[i]).Connection.WriteInteger(i);
  end;
  IdTCPServer1.Threads.UnlockList;