Timer组件控制ProgressBar组件

Question

我想让time组件在10秒让progressbar走到百分之百。请高手写一写代码。

Answer 1

timer设置1秒progressbar.max := 10;
ontimer事件中写
i:=i+1;//i为全局变量,初始为0
progressbar.position := i
Inc(i);

Answer 2

procedure TForm1.Timer1Timer(Sender: TObject);
var i:integer;
begin
i:=i+1;
ProgressBar1.Position:=i;
inc(i);
end;没有用。要等一秒后就是刷一下没有了，我看到一格一格的走动10秒钟每一秒走一格这样的效果。