关于页面过渡效果的问题,急!!!!!!!!!!!!!!!!!!!!!!!!!

我 做了个动态的过渡效果,在过渡效果上,放了一个图片和一个progressbar,随着progressbar的动态增加,可是图片就是没显示出来,这是怎么回事,希望各位高手指点.dpr文件代码如下:
program renshi;uses
  windows,
  Forms,
  main in 'main.pas' {mainform},
  ulogin in 'ulogin.pas' {frmlogin},
  udb in 'udb.pas' {sdbs: TDataModule},
  move in 'move.pas' {lpform},
  guanyu in 'guanyu.pas' {guanyuform},
  frmrenshi in 'frmrenshi.pas' {frmbasicrenshi};{$R *.res}
var p:integer;
begin
  Application.Initialize;
  lpform:=Tlpform.create(application);
  lpform.show;
  repeat
   lpform.bar.StepBy(5);
   sleep(50);
  until lpform.bar.Position=100;
   Application.CreateForm(Tsdbs, sdbs);
  Application.CreateForm(Tfrmlogin, frmlogin);
  Application.CreateForm(Tfrmbasicrenshi, frmbasicrenshi);
  Application.CreateForm(tguanyuform,guanyuform);
  sleep(1000);   //延迟登入界面;
    for p:=1 to 20 do
  begin
  lpform.bar.Width:=lpform.bar.Width-15;
  lpform.Image1.Width:=lpform.Image1.Width-15;
  lpform.Width:=lpform.Width-15;  sleep(5);
  end;
  lpform.bar.Free;
  lpform.Free;
 // flogin.Hide;
 // flogin.Free;
  Application.Run;
end.