如何得出滚动的数字？

Question

如何在一个文本框中：让：0----9 10个数字。来回的滚动。如何实现？谢了。
我是这样写的。可是直接得出结果。根本不滚动。
  
   var i:Integer;
   for i:=0 to 9 do
begin
   Edit1.Text:=IntTostr(i);
   Edit1.Clear;
end可是直接得结果。我想应该加个时间间隔吧。如何实现。高手指见！

Answer 1

var i:Integer;
   for i:=0 to 9 do
begin
   Edit1.Text:=IntTostr(i);
   Edit1.Clear;
end
//放到timer的ontimer事件里。
//设置timer的时间interval

Answer 2

我想达到的目的是Btnclick事件激活这个事件。如何实现。

Answer 3

楼上的方法也只能是显示最后一个9。
先定义一个全局变量I
procedure TForm1.Timer1Timer(Sender: TObject);
begin
     edit1.Text:=inttostr(i);
     i:=i+1;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
     timer1.Enabled:=false;
     i:=0;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
      timer1.Interval:=200;
      if  timer1.Enabled=false then
      timer1.Enabled:=true
      else
      timer1.Enabled:=false;
end;