Bucle For con Repeat.

[ramonibk]

Hola a todos.

vuelvo a solicitar vuestra ayuda para poder aprender un poco mas.

Estoy realizando una aplicación para conexión por Telnet (https://www.clubdelphi.com/foros/showthread.php?t=95374) a un listado de equipos.
en un principio cuando se realiza la conexión a un solo equipo no tengo problema, me conecto ejecuto la consulta y desconecto.
el problema ocurre cuando le pongo una lista de IP para que so realice secuencialmente.
la Lista de Ip se encuentra en un ListBox.
El problema e que he intentado hacer algo como.

Código Delphi [-]
Var
 N : Integer;
Begin
 For N = 0 To ListBox.Items.Count -1 Then
Begin
   Memo1.Text := 'Iniciando Conexión';
  //Ejecuto todo lo necesario.
   Memo1.Text := 'Finalizando conexión';
End;

pero esto parece que es demasiado rápido y se queda enganchado y no es capaz de realizar las tareas de echo no es capaz de pintar en el momo.
por lo que pense en depender de una bariable global para controlar el "For" la estructura que tenia pensada es mas o menos.

Código Delphi [-]
Var
 N : Integer;
Begin
 For N = 0 To ListBox.Items.Count -1 Then
   Begin
      Repeat
         Begin;
           Memo1.Text := 'Iniciando Conexión';
          //Ejecuto todo lo necesario.
         End;
       Until  Terminado = True ;
         Begin
           Memo1.Text := 'Iniciando Conexión';
         End;
   End;
End;

Pero no soy capaz de que esto funcione. se me bloquea la aplicacion.

Alguna sugerencia????????

Muchas gracias.