Progressbar и label

[dgoc]

Привет Всем. Нужна помощь.
Имеется процедура:

procedure TForm1.autoscanClick(Sender: TObject);
begin
steps:=0;
label1.caption:=('Scaning ...');
repeat
progressbar1.Position:=steps;
sadsr(steps);      {Вызов внешней процедуры}
steps:=steps+1;
until steps=201;
end;

По идее, на окне должна отобразиться надпись "Scaning ..." и показываться процесс в progressbar. Однако надпись появляются по окончании процесса, т.е. Progressbar заполняется и лишь потом появляется надпись. Что сделал не так и как исправить?

[_Dmitry]

Application.ProcessMessages; решит проблему. Вызывайте сразу же после изменения позиции в прогрессе.

[KORN]

procedure TForm1.autoscanClick(Sender: TObject);   
begin  
steps:=0;   
label1.caption:=('Scaning ...');   
repeat  
Application.ProcessMessages;
progressbar1.Position:=steps;   
sadsr(steps);      {Вызов внешней процедуры}  
steps:=steps+1;   
until steps=201;   
end;

типа вот так