请各位看一下代码,关于启动界面！

Question

为什么出错：（[Error] Project1.dpr(14): Undeclared identifier: 'gettickcount'）
program Project1;uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};
var mydata:tdatetime;
{$R *.res}begin
form1:=tform1.Create(application);
form1.Show;
form1.Update;
mydata:=gettickcount;
while ((gettickcount-mydata)/1000<2) do;
Application.Initialize;
Application.CreateForm(TForm2, Form2);
form1.Close;
form1.Free;
Application.Run;
end.
请问如何改正！谢了！

Answer 1

TO wjzfly (想飞) 
  以后再遇到这样的编译错误，在HELP查一查未定义的那个函数属于那个单元就行了
  比如gettickcount 在windows 里，你就在前面加个uses windows，....，...;

Answer 2

begin
form1:=tform1.Create(application);
Application.Initialize;
form1.Show;
form1.Update;
mydata:=gettickcount;
while ((gettickcount-mydata)/1000<2) do;
Application.CreateForm(TForm2, Form2);
form1.Close;
form1.Free;
Application.Run;
end.

Answer 3

gettickcount----需引用uses windows;