怎样让Label的内容随循环语句变动

Question

我的意思是在一个循环存储语句中，让Label及时显示正在存储的内容
我写的代码是这样:
procedure TFormCodemodify.BtnsaveClick(Sender: TObject); 
var  i: integer
begin
  Label.visible := True;
  for i := 0 to qryfind.RecordCount-1 do
    begin
      Label.Caption := '正在保存'+temptable.FieldByName('field1').asstring;      modifysfz;    //保存操作过程函数
        end;
      temptable.Next;
      progressbar1.StepIt;
    end;  // end for
  Label.visible := False;
end;运行结果是： 在过程全部执行完后，Label才显示出来，且显示内容是最后一条存储信息。
请问正确的代码应该是怎么样的？

Answer 1

在 Label.Caption := '正在保存'+temptable.FieldByName('field1').asstring;后面加两句：application.ProcessMessages;
label1.Refresh;