各位大虾，请问怎么获得系统中断的函数？(100分)

我想把一秒钟分成 十几个部分，用 前面的7个部分来 采集数据，用后面的 几个部分来
提供其它功能使用。
请问在delphi 中有这样的函数吗？如果知道有什么方法可以解决，请告诉我，
我一定再加分。
千万别说用 timer控件，那样好象不怎么好用。

http://www.delphibbs.com/delphibbs/dispq.asp?lid=0510832
http://www.delphibbs.com/delphibbs/dispq.asp?lid=0572348
http://www.delphibbs.com/delphibbs/dispq.asp?lid=0329335
...