Timer加以简单处理,你会发现它不错.

定义一个全局.boolean类型变量
在onTimer 事件中加入

var

TimerFlag:boolean=True;

......................................

OnTimer事件处理过程
-------------------------------------------------
if TimerFlag then
begin
TimerFlag:=false;
{随便你干些什么.}
TimerFlag:=True;
end;
-------------------------------------------------
这样就可以解决在利用timer进行一些处理,但是由于处理过程较长而造成的message不断压入堆栈．．而造成堆栈溢出．．