这个...说来惭愧，楼主div和mod搞反了，以至于预期上个星期完成的延迟到了这个星期...
好，那现在就公开源码吧（P.S.：我公开的是程序代码，要改成过程的自己改吧= =）
program Delay_MAYBE;
uses dos;
var
a,b,c,d:word;
q,w,e,r:word;
a1,b1,c1,d1:word;
di1,di2,di3,di4:longint;
time:integer;
Vco,Vco2:longint;
begin
readln(time);
gettime(a,b,c,d);
di1:=time mod 100;
d1:=(d+di1)mod 100;
di2:=time div 100;
Vco:=((d+di1)div 100)+c+di2;
c1:=Vco mod 60;
di2:=((di1+d)div 100)+di2;
Vco2:=((c+di2)div 60)+b;
b1:=Vco2 mod 60;
a1:=(a+(Vco2 div 60))mod 24;
repeat
gettime(q,w,e,r);
until(q>=a1)and(w>=b1)and(e>=c1)and(r>=d1);
end.

这个算法应该算效率比较高的，而且精度应该比crt的delay要高一些——毕竟是调用时间来判断的嘛！

好牛逼的样子

原创函数啊...

呵呵 似乎挺有用 但是......

过来看一眼，原来我大P吧已经被SB达学院占领了

Windows 下直接用 Randomize ，然后 RandSeed 的值就是 GetTickCount() 的返回值。
其他系统下调用 Randomize 后 RandSeed 的值也是和时间相关的某个值，具体可以看下 FPC 的源代码。