如何制作启动Splash??????

program splash_demo;uses
  Forms,windows,sysutils,
  splashu1 in 'splashu1.pas' {Form1},
  splashu2 in 'splashu2.pas' {splash};{$R *.RES}
var b,e:longint;
begin
  Application.Initialize;  //create splash from self ,with owener application
  splash:=tsplash.create(application);
  //show splash form
  splash.show;
  //to update splash form screen
  splash.update;
  //create mainform form1
  Application.CreateForm(TForm1, Form1);
  //get time from the windows start
  b:=windows.GetTickCount;
  e:=windows.GetTickCount;
//*******************************************************//
  //waiting for 1000MS (1sec)
  while (e-b)<1000 do
  begin
  e:=windows.GetTickCount;
  end;
//*******************************************************//
  //hide splash form ,peraper to show mainform
  splash.Hide;
  //show mainform form1
  form1.show;
  //destroy the splash form from memory
  splash.Destroy;
  Application.Run;
end.