关于线程的挂起与唤醒？？？？急！！请各位指教！！！

Question

我的一个线程的简单的程序，为什么在创建后挂起，第一次唤醒时可以执行Execute中的内容，但以后再唤醒时就不能执行Execute中的内容了。
｛线程｝
  TTHtest=class(TTHread)
    private    protected    public
      constructor Create(CreateSuspended: Boolean);
      procedure Execute;override;
    end;
implementation
constructor TTHtest.Create(CreateSuspended: Boolean);
begin
  inherited create(createsuspended);
  freeonterminate:=false;
  test:='';//全局变量test:string
end;procedure TTHtest.Execute;
begin
  inherited;
  test:=test+'aaa';//全局变量test:string
  Suspend;
end;｛创建调用｝
procedure TFMainSock.Button10Click(Sender: TObject);
begin
  thtest:=TTHtest.Create(true);//全局变量thtest:TTHtest
end;procedure TFMainSock.Button12Click(Sender: TObject);
begin
  if thtest.Suspended then
    thtest.Resume;//第一次执行Execute中的内容，以后不执行Execute中的内容
end;

Answer 1

procedure TTHtest.Execute;
begin
  while not terminate do
    begin
      test:=test+'aaa';//全局变量test:string
      Suspend;
    end;
end;