Не меняется поле Edit

[garyanikin]

Здравствуйте, опять проблема))

Есть код

procedure TForm1.Button1Click(Sender: TObject);
var
sum,pbar : integer;
begin
...
ProgressBar1.Max := sum;
pbar := 0;
For i := 1 to sum do begin
...
ProgressBar1.Position := ProgressBar1.Position+1;
pbar := pbar + 24;
Edit2.Text := IntToStr(pbar);
end;
...
end;

Почему то поле Edit2 Меняется только после того как закончиться цикл.
Почему это может быть и как это исправить???

[Alex Cones]

В цикле вставьте:

Edit2.Refresh;

[Usov]

Edit2.Text := IntToStr(pbar);
Application.ProcessMessages;

[Баламут]

Смеетесь? Да оно меняется на всем протяжении цикла. Просто это происходит довольно быстро и вы видите то, что произошло на последней иттерации. Немного дополню коллегу

Edit2.Text := IntToStr(pbar);
Application.ProcessMessages;
Sleep(100)

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

[garyanikin]

Edit2.Refresh;

Всё отлично работает)))
Спасибо)