Выполнение стороннего процесса

[KiDoki]

Написал программу выполняющую цикл. Нужно чтобы каждый шаг цикла программа писала в лэйбл значение i(цикл). Прописываю:

  for I := 1 to 70000 - 1 do
    idHttp1.Get('ссылка'+inttostr(i));
    Label1.Caption:=inttostr(i);

Label1.Caption:=inttostr(i); и есть сторонний процесс который надо выполнить.

Но прога зависает, и отвисает когда цикл заканчивается. Кэпшен лэйбла не изменятеся. Что посоветуете?

[Sm1Le]

begin
end;


тебе в помощь =)

[rpy3uH]

   for I := 1 to 70000 - 1 do
    begin
     idHttp1.Get('ссылка'+inttostr(i));
     Label1.Caption:=inttostr(i);
     Application.ProcessMessages;
   end;

[KiDoki]

  for I := 1 to 70000 - 1 do
    begin
    idHttp1.Get('ссылка'+inttostr(i));
    Label1.Caption:=inttostr(i);
    end;

Это имел ввиду?
Если да, то тот же эффект.

*добавил*
rpy3uH, спасибо, помогло. Тему можно считать закрытой.

[Sm1Le]

я не понимаю Все будет меняться с Большой скоростью, и ты увидишь только Последний элемент !Оо

[mihali4]

Плюс обязательно последним оператором Application.ProcessMessages, иначе лэйбл так и не будет меняться.

[KiDoki]

Все меняется со скоростью примерно 3-5 ссылок в секунду. Мне этого достаточно.