不太明白ls的意思，FreeOnTerminate是tthread的属性，既然用这个，为什么要用
WaitForSingleObject呢？下面的运行良好！不知道有用不！
/////////////////////////////////////////////////
Tm=class(tthread)
public
procedure Execute;override;
end;
var
t:tm;
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
t.Terminate;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
t:=tm.Create(false);
//t.FreeOnTerminate:=true;
end;
{ Tm }
procedure Tm.Execute;
begin
inherited;
while (not t.Terminated)do
begin
sleep(100)
end;
end;
