[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

[Rosenkrantz]

Добавьте в цикл Application.ProcessMessages.

[Oleg]

Спасибо !!! Спасибо !!! Спасибо !!!

[aleksnine]

Сообщение от Oleg

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

PercentDone

Код:

ProgressBar1.Position:=PercentDone ;

[Oleg]

И ещё раз спасибо !