简单问题不知道怎么做

                            
procedure   TForm1.Button1Click(Sender:   TObject);   
  var   i:Integer;  
  begin  
        for   i:=0   to   1000000   do  
        Label1.Caption   :=IntToStr(i);  
  end;  
   
  想看到LABEL的变化,即1,2,3,4,5,..1000000  
  但是只有当程序运行完成后才后变啊,即开始是label1,然后就是100000  
  想知道怎么实现?  
 

查看回复