[Oleg]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12

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