Indy 9 server slanje poruke svim klijentima

Code:

Procedure TForm1.Button2Click(Sender: TObject);
var
  List: TList;
  Index: integer;
begin
  List := IdTCPServer1.Threads.LockList;

  try

    for Index := 0 to List.Count-1 do
    begin

      with  TIdPeerThread(List[Index]).Connection do
      begin
        WriteLn('STOP');
        Readln();
        end;


    end;

  finally
    IdTCPServer1.Threads.UnlockList;
  end;
end;