这样的程序如何写？

Question

我先定义一个整型变量i：=0；
有个函数可以给i再赋值。
我想实现的是，当10秒以后i还是等于0的时候程序退出，如何实现？？？

Answer 1

var begintime:cardinal;begin 
 ....
   begintime:=gettickcount;
   While (gettickcount - begintime) < 10 * 1000 do
   begin  //等待10秒
       application.ProcessMessages;
   end;
   if i=0 then
      close; //或 application.Terminate;

Answer 2

加一个timer，设置间隔为10000      10s
在ontimer事件里。  if  i=0 then  halt;