Enviar un mensaje a todas las conexiones activas

[•–[XII]–•]

Código Delphi [-]
//Esto supongo que listará los clientes conectados
 List := tcpServer.Threads.LockList;
 try
    for Count := 0 to List.Count -1 do
      try
           //Supongo que en esta parte es el la que se envía el mensaje a todas las conexiones.
          TIdPeerThread(List.Items[Count]).Connection.WriteLn(Msg);
      except
           TIdPeerThread(List.Items[Count]).Stop;
       end;
       finally
           tcpServer.Threads.UnlockList;
       end;

Es verdad, había revisado el ejemplo, pero no encontraba la sección para distribuirlo. Una duda más... ¿para que sirve el Trim?, porque con la ayuda de Delphi no me aclaro (No se si debería poner esto en un nuevo hilo..., pero como es una pregunta sencilla...).


Muchas gracias