一个小问题

Question

为什么这段代码预期的功能实现不了。
procedure TForm1.BitBtn1Click(Sender: TObject);
Var
 s : String;
 i,j : Integer;
begin
   Label1.caption :='正在计算.............';
   for i :=1 to 100 do
     for j :=1 to 10000 do
   Label1.Caption :='';
end;原先的设想是，点击按钮，显示“正在计算....”，然后延时，等到时间到了，Label的内容显示为空，
但程序实际执行的结果正好相反，刚开始Label的内容是空的，等到时间到了，才显示“正在计算...”，
为什么，还望各位大侠赐教！谢谢。

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
Var
 s : String;
 i,j : Integer;
begin
   Label1.caption :='正在计算.............';
   Label1.Refresh;
   for i :=1 to 10000 do
     for j :=1 to 10000 do
       ;
   Label1.Caption :='';
end;