2 timer event

Hi William,



Some untested DelphiScript-like pseudo-code (just because it supports try/finally) off top of my head:



var boolInHandler



procedure OnStartTest(); // can be event handler for the OnStartTest event - see help for more details

begin

  boolInHandler := false;

  ...

end;



procedure TimerHandler();

begin

  if (boolInHandler) then

    exit;



  boolInHandler := true;

  try

    ...

  finally

    boolInHandler := false;

  end;

end;