还是processbar的问题？

Question

程序如下：
if ...then
begin
        timer2.Enabled:=true;
        timer2.Interval:=20000;
        ProgressBar1.Max:=20000;end;
然后我加了一个时间控件。
procedure Tscout.Timer2Timer(Sender: TObject);
begin
这个地方该如何写，运行了20000毫秒后进度条的position：=20000；
end;

Answer 1

if ...then
begin
   timer2.Interval:=200;
   ProgressBar1.Max:=20000;
   ProgressBar1.Step := timer2.Interval;
   timer2.Enabled:=true;
end;procedure TForm1.Timer2Timer(Sender: TObject);
begin
   ProgressBar1.StepIt;
end;—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————