急，在线等，关于调用存储进程的问题......

Question

我连续调用了十几个存储进程，在处理每一个存储进程前后要在前台做一些提示，在StatusBar中显示这些提示信息，同时在StatusBar中还显示当前时间，但是运行后，程序只处理后台的存储进程，在StatusBar不显示提示信息，只有在所有存储进程都执行完毕后才显示最后一条提示信息，同时时间停止不再连续显示，程序如下：
procedure Tjs_form.Button1Click(Sender: TObject);
begin
///////////////////////第一步//////////               
StatusBar.Panels[1].Text:='开始计算1......';
StatusBar.Panels[1].Text:='正在计算1......';
function_store('store_1');
StatusBar.Panels[1].Text:='1计算完毕......';///////////////////////第二步//////////               
StatusBar.Panels[1].Text:='开始计算2......';
StatusBar.Panels[1].Text:='正在计算2......';
function_store('store_2');
StatusBar.Panels[1].Text:='2计算完毕......';.........................///////////////////////第n步//////////              
StatusBar.Panels[1].Text:='开始计算n......';
StatusBar.Panels[1].Text:='正在计算n......';
function_store('store_n');
StatusBar.Panels[1].Text:='n计算完毕......';StatusBar.Panels[1].Text:='计算完毕';
end;
最后在StatusBar中只显示“计算完毕”，中间的那些信息在计算过程中显示不出来还有在timer中：
procedure Tjs_form.Timer1Timer(Sender: TObject);
begin
StatusBar.Panels[0].Text:=DateTimeToStr(Now);
end;一运行上面Button1Click事件，这个时间也不动了。怎末解决，小弟很急，希望能给出比较详细的指点，多谢多谢！

Answer 1

在以上“第一步”、“第二步”...“第n步”
每步的四条语句的后面写：
Application.ProcessMessages;