我编写了一个延时过程，但是我想把它用在下面的程序中，应该怎么在之后的程序里调用这个过程？内有详细代码！(0分)

procedure delay(MSecs:longint);
var
firstTickCount, Now: Longint;
begin
firstTickCount := GetTickCount;
repeat
application.ProcessMessages;
Now := GetTickCount;
until (now - firstTickCount >=MSecs) or (Now < FirstTickCount);
end;
比如我想在form1.create事件里延时1000毫秒后form1关闭。应该怎么搞？

create关闭？开什么玩笑

放在application.onidle里吧

在form1。create()事件中好象不能关闭form1吧！关注！！！

延时用Sleep(MSess)，在Create事件中好象不能关闭，
如果是做软件启动时的画面，修改project文件

接受答案了.