显示进度框的例子:
g_wait.show; g_wait.Update; if s_ctbz=NIL then s_ctbz:=Ts_ctbz.Create(self); s_ctbz.showmodal;