Broadcast a traves de Threads

[josepicd]

Vuelvo para plantearos otro problema. De momento no tiene aplicacion practica, pero estoy intentando aprender como funciona.

Tengo varios programas por la red que tienen activo un TSockectServer y estan escuchando por el puerto 7000.


Ahora tengo que hacer un programa con varios TSocketClient que se conecte a todos los Servers.

Tengo algo asi

Código Delphi [-]
var
  i: Integer;
begin
  lsb.Items.Clear;

  for i := 2 to 255 do
  begin
    if cs.Active then cs.Close;
    cs.Address := '192.168.0.' + inttostr(i);
    cs.Port := 7000;
    try
      cs.Open;
    except
    end;
    if cs.Active then lsb.Items.Add( cs.Address);
  end;
end;

Esto funciona, pero va lento porque tiene que esperar a que cs.Open de un error. La intencion seria lanzar 255 Threads y que vayan respondiendo. Esto sabria hacerlo, lo que no se como hacer es que cada Thread añada una linea a lsb. Y ya puestos para no obtener 255 mensajes de error, alguien sabe como silenciar cs.open?