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.