菜鸟问问题，在线等

procedure TForm1.FormCreate(Sender: TObject);
var
  CurTime:LongWord;
  DelayTime:LongWord;
begin
       //设置延迟时间为5秒
       DelayTime:=5000;
       CurTime:=GetTickCount;
       while(GetTickCount<(CurTime+DelayTime))do;end;那个GetTickCount有什么用？
请解释一下这段小代码！！
谢了！