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

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

var

    TimerFlag:boolean=True;

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

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