procedure TDoSomeThingThread.Execute;
var
  i: Integer;
begin
  inherited;
  FreeOnTerminate:= True;
  //CanFree := False;    //不再需要 CanFree这样的属性了，也就简化了线程类的设计
  try
    while not Self.Terminated do
    begin
      ........
      {
        在这里编写该线程具体所要做的事情的代码逻辑，
        如果这里面还是要循环执行一些任务，
        最好能在每次循环的时候也都再去检查一下Terminated的值
        如果是True就结束循环，
        就是保证在较短的事件内不断检查 Terminated标志，保证能够及时退出
      }
      ........
      Sleep(5);
      Application.ProcessMessages;
    end;
  finally
    //CanFree := True;    //不再需要 CanFree这样的属性了，也就简化了线程类的设计
    {在这里将线程申请的资源进行释放……后续操作}
  end;
end;

procedure DestroyAThread(testThread: TDoSomeThingThread); stdcall;
var
  itime: Cardinal;
begin
  if Assigned(testThread) then
  begin
    testThread.Terminate;      //在这里将testThread的 Terminated属性设置为True
    
    {
      这里就只需要通过Terminate方法将线程的Terminated设置为True，
      去通知线程结束就行了，
      不需要关心线程的释放问题，因为线程会自己释放
    }
  end;    //这个方案中就不需要使用Free方法去显式释放线程资源了，因为线程自己会在执行结束后自动释放
end;