Delphi TTimer控件使用问题?

在TTimer的Ontime事件里为什么不能该变全局变量的值,我定义了一个全局变量,Ontime每执行一次,该变量的值都会被初始化。要怎么样才能解决?blNum是一个全局变量,但是每次触发的时候,showmessage都会执行。procedureTFrom.tmrCheckTimer( );beginifblNum=falsethenshowmessage('ok');blNum:=true;end;

热心网友

if not blNum then begin blNum := true; ShowMessage('ok');end;