欢迎界面 怎么不行啊(0分)

program Project1;

uses
Forms,
Unit1 in 'Unit1.pas' {mainform},
Unit5 in 'Unit5.pas' {weixiuchaxun},
Unit7 in 'Unit7.pas' {xiugaiquanxian},
Unit8 in 'Unit8.pas' {zengjiayonghu},
Unit9 in 'Unit9.pas' {mimaxiugai},
Unit10 in 'Unit10.pas' {loginform},
Unit12 in 'Unit12.pas' {deleteuser},
Unit2 in 'Unit2.pas' {zujianzengjia},
Unit15 in 'Unit15.pas' {shebeixinxiguanli},
Unit17 in 'Unit17.pas' {genghuanguanli},
Unit4 in 'Unit4.pas' {jiludan},
Unit6 in 'Unit6.pas' {genghuandan},
Unit11 in 'Unit11.pas' {weixiudan},
Unit13 in 'Unit13.pas' {yuangongweihu},
Unit14 in 'Unit14.pas' {shujucaozuo},
Unit18 in 'Unit18.pas' {data: TDataModule},
Unit16 in 'Unit16.pas' {chushihua},
Unit19 in 'Unit19.pas' {zhuchuankou},
Unit3 in '../tz2/Unit3.pas' {shujuweihu},
Unit20 in 'Unit20.pas' {qitashebei},
Unit21 in 'Unit21.pas' {yueduhz},
D7ComboBoxStringsGetPatch in 'D7ComboBoxStringsGetPatch.pas',
Unit22 in 'Unit22.pas' {bumenshuju},
Unit23 in 'Unit23.pas' {qitajiludan},
Unit24 in 'C:/Program Files/Borland/Delphi7/Projects/Unit24.pas' {splashform};

{$R *.res}
var
time1:tdatetime;
begin
application.createform(tsplashform,splashform);

SplashForm.Show;

　//　 SplashForm.refresh;
time1:=now;

　　 repeat

　　 until time1＋StrtoTime('00:00:5')<=now;



Application.Initialize;
Application.CreateForm(Tdata, data);
Application.CreateForm(Tmainform, mainform);
Application.CreateForm(Tzhuchuankou, zhuchuankou);
APplication.Run;


end.
这个代码GOOGLE 搜索下来的 N 多 可是却是不行的 难道我错了？？希望指教一下

.dpr中

Application.Initialize;
ShowForm := TShowForm.Create(Application);//闪屏
ShowForm.Show;
ShowForm.Update;
Application.CreateForm(TmainForm, mainForm);
mainForm.Hide;
mainForm.Update;
ShowForm.Free;
Application.Run;


主程序Create中加入
i := GetTickCount();
while (GetTickCount() - i) / 1000 < 1 do //1是你要的延时秒数
;

是啊 我也应该觉的是这样的
不过有点不懂 showform.update 是什么意思 有何作用啊

showform.update这是一个标准程序，它的作用是发送一个重画的消息，让画面重画，在这种情况下是必须调用的