一个关于Form.show的问题 ( 积分: 50 )

我想实现的功能是在数据导入过程中显示进度条，我的程序是这样的：
导入按钮在form1上，进度条ProgressBar1在form2上
procedure TForm1.SpeedButton3Click(Sender: TObject);
var
.........
begin
........
if opendialog1.Execute then ///////打开excel表
begin
........
if excelrowcount>=2 then ////如果execl有超过2行的记录
begin
form2.ProgressBar1.Min:=0;
form2.ProgressBar1.Max:=excelrowcount;
form2.ProgressBar1.Step:=1;
form2.Image1.Visible:=true;
form2.Label1.Visible:=true;
form2.Show;
for i:=2 to excelrowcount+1 do
begin
........ //导入数据
form2.ProgressBar1.StepIt; ///进度条走一格
end;
...................
现在的问题是form2和ProgressBar1能显示出来，ProgressBar1也能正常显示进度，但是为什么form2上的Image1和Label1显示不出来呢？？我该如何解决这个问题呢？？？？

你设置Image1和Label1的visable 为 False了？
你直接显示form2有这个问题么？

frrm2.update;刷新边就OK了。我忘记了是不是update属性你自己找下

直接显示没问题，Image1和Label1的visable我设置的也是true。为什么放入上面代码中就不能显示了呢？

to shadowpj
多谢多谢，用你的方法搞定了。但是为什么会出现这种问题呢？

接受答案了.