关于delphi中多线程采用定时器的做法

delphi中的提供了一个tthread的多线程类，开发者可以根据自身的需要，定制相应功能的多线程，而定时器在多线程中有很广泛的应用，在这里，只说关于waitforsingleobject来做定时器的一些关键问题。（关于定时器的相关知识，请阅读《深度历险》）
waitforsingleobject是一个api函数，采用该函数，需要调用createevent，timesetevent，然后才能使用。但是这里使用到的event在线程中声明的位置不一样，效果也不一样，以下给出两种声明方式：
unit PTUnit;

interface

uses
  Classes,mmsystem, Windows, sysutils, Forms;

type
  TPingThread = class(TThread)
  private
    { Private declarations }
   {将event声明为该线程类的私有数据成员}
    timerid:integer;
    htimerevent:Thandle;
    fFileName: string;
  protected
    procedure Execute; override;
  public
    constructor create;
    procedure SetOver;
  published
  end;

implementation

constructor TPingThread.Create;
begin
  FreeOnTerminate := true;
  Inherited Create(true);
end;

procedure TPingThread.SetOver;
begin
  timerid := timesetevent(5,0,TFNTimecallback(htimerevent),0,time_periodic or time_callback_event_set);
end;

procedure TPingThread.Execute;
begin
  htimerevent := CreateEvent(nil, False, False, nil);
  timerid := timesetevent(5*1000,0,TFNTimecallback(htimerevent),0,time_periodic or time_callback_event_set);
  repeat
    if WaitForSingleObject(htimerevent,INFINITE) = WAIT_OBJECT_0 then
    begin
      if Terminated then break;
      dosomething;
   end;
  until false;
  timekillevent(timerid);
  CloseHandle(htimerevent);
end;
end.
这种声明方式保证了线程能够正常的执行。但是，下面一种声明方式就不行了，当你只是创建一个线程实例的时候，还能正常的执行，如果创建了两个以上的线程实例，那就不对了。
unit PTUnit;

interface

uses
  Classes,mmsystem, Windows, sysutils, Forms;

type
  TPingThread = class(TThread)
  private
    { Private declarations }
    fFileName: string;
  protected
    procedure Execute; override;
  public
    constructor create;
    procedure SetOver;
  published
  end;

implementation
{在实现部分声明事件}
var
  timerid:integer;
  htimerevent:Thandle;

constructor TPingThread.Create;
begin
  FreeOnTerminate := true;
  Inherited Create(true);
end;

procedure TPingThread.SetOver;
begin
  timerid := timesetevent(5,0,TFNTimecallback(htimerevent),0,time_periodic or time_callback_event_set);
end;

procedure TPingThread.Execute;
begin
  htimerevent := CreateEvent(nil, False, False, nil);
  timerid := timesetevent(5*1000,0,TFNTimecallback(htimerevent),0,time_periodic or time_callback_event_set);
  repeat
    if WaitForSingleObject(htimerevent,INFINITE) = WAIT_OBJECT_0 then
    begin
      if Terminated then break;
      dosomething;
   end;
  until false;
  timekillevent(timerid);
  CloseHandle(htimerevent);
end;
end.
以上两个除了事件声明位置不一样，其他功能均一样的代码在创建了两个以上线程实例的时候，第一个能够正常执行，第二个中的定时器的时间间隔就会出问题，而且当结束其中一个线程的时候，另外一个线程也无法正常工作。

总结：建议使用第一种声明方式，这种方式能确保正常运行。