[ramonibk]

Gracias Neftali Tambien me ha sido muy útil.

al final como era para una conexión telnet se me quedaba colgado con mucha facilidad.
al final el código que me ha funcionado a sido.

Código Delphi [-]
procedure TForm2.BtnMultiClick(Sender: TObject);
Var
 N : Integer;
begin
   Repeat
     sleep(1000);
   Until (IdTelnet1.Connected = False);
    Begin
     for N := 0 to ListBox1.Items.Count -1 do
      Begin
       IdTelnet1.Host := ListBox1.Items[N];
       IdTelnet1.Port := StrToInt( EdPuerto.Text );
       IdTelnet1.Connect;
       Log.Lines.add(format('conexión a IP: '+ListBox1.Items[N]);
       Conectado := True;
       Log.SetFocus;
         Repeat
           application.processMessages;
           sleep(1000);
         Until (Conectado = False) ;
      End;
    End;
end;

Un saludo y gracias a todos.