delphi中的进度条如何用?

[javanew]

我这样用的，可是没显示兰色的进度嘛

progress.min:=0;
progress.position:=0;
progress.max:=100;

while i<100 do
begin
progress.position=progress.position+1;
end;

进度条一点反应都没有，没有兰色的进度显示，在VB下好象是可以的

[fyje]

while i<100 do
begin
progress.position=progress.position+1;
self.update;
end;