请教 错在哪里？(50分)

请问我这源码错在哪里？是想建立一个启动窗体
program Project1;

　　 uses
　　 Forms,SysUtils,
　　 Unit1 in ′Unit1.pas′ {Form1},
　　 Splash in ′../../Demos/DB/MASTAPP/Splash.pas′ {SplashForm};

　　 {?R ＊.RES}
　　 var time1:TDateTime;

　　 begin

　　 SplashForm:=TSplashForm.Create(Application);

　　 SplashForm.Show;

　　 SplashForm.Refresh;

　　 time1:=now;

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

　　 Application.Initialize;

　　 Application.CreateForm(TForm1, Form1);

　　 Application.Run;

　　 end.

　　 {UNIT1.PAS 主窗体}
　　 unit Unit1;

　　 interface
　　 uses
　　 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
　　 Dialogs,splash;

　　 type
　　 TForm1 = class(TForm)
　　 procedure FormShow(Sender: TObject);

　　 private
　　 { Private declarations }
　　 public
　　 { Public declarations }
　　 end;

　　 var
　　Form1: TForm1;

　　 implementation
　　 {?R ＊.DFM}
　　 procedure TForm1.FormShow(Sender: TObject);

　　 begin

　　 SplashForm.Free;

　　 end;

　　 end.

　　 {SPLASH.PAS Splash窗体}
　　 unit Splash;

　　 interface
　　 uses
　　 SysUtils, Windows, Messages, Classes, Graphics, Controls,
　　 Forms, Dialogs, StdCtrls, ExtCtrls;

　　 type
　　 TSplashForm = class(TForm)

　　 Panel1: TPanel;

　　 Label3: TLabel;

　　 Bevel1: TBevel;

　　 Label1: TLabel;

　　 Image1: TImage;

　　 end;

　　 var
　　 SplashForm: TSplashForm;

　　 implementation
　　 {?R ＊.DFM}
　　 end.

[错误] wohoot.dpr(21): Undeclared identifier: 'now'
[错误] wohoot.dpr(25): Undeclared identifier: 'StrtoTime'
[错误] wohoot.dpr(25): Type of expression must be BOOLEAN

>>SplashForm.Free;
这句好像不对！
什么都没有创建，怎么就释放窗体了呢？

错在SplashForm.Free;
试用SplashForm.Hide;

不是这里啊，编译时3个错误都在工程文件里

在uses 下加dateutils

//time1＋StrtoTime(′00:00:5′) 有问题
要延时5秒 time1+5/24*60*60

啊 我马上那个试一试

应该是工程文件中缺少引用的单元名称吧！

感谢deardai,、天道酬勤, 的指点，现在新问题来了，就是启动窗体怎么也不消失，主窗体不出来？怎么办

编译后程序没有报错，但出现启动窗体后就没有反应，只能强行结束

编译不能完成啊

感谢大家的指导，问题没有解决，还是一样有分