[cloayza]

Amigo creo que no sería demasiado complicado...Haber si esto ayuda...

Código Delphi [-]
   For Indice:= 0 To 500 Do
   begin
           if (Indice=400) then
               Showmessage(format('Llegué a %d',[i])); {Aquí se detendrá}
           endif
          ....
   end;

Saludos cordiales