[Oleg]

Почему, если организовать цикл с while хоть с Sleep() или без него, то невозможно изменить значение Edit или Label. Типа ход процесса или подсчет чисел, а только в конце выводится, когда достигнет последнего результата.
пример:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
i:=100;
while i > 1 do
begin
Sleep(300);
dec(i);
Label1.Caption:=IntToStr(i);
end;
end;

Или я делаю что-то не так ?
И ещё если можете, напишите как организовать работу с OnProgress