我是这么写的。
Application.Initialize;
Application.Title := '北京市金泰建筑规划管理查询软件';
create:=Tcreate.Create(application);
create.Height:=screen.Height;
create.Width:=screen.Width;
create.image1.Picture.LoadFromFile('c:/program files/map/create.jpg');
create.image1.Height:=screen.Height;
create.image1.Width:=screen.Width;
create.Show;
create.Update;
sleep(3500);
create.Free;
但还是能看见windows的工具栏。