运行线程时出现Thread Error:句柄无效 错误,请教

Question

var
  Form1: TForm1;
  test:  ttest;  //ttest是线程类
implementation
{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begintest.resume;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
test.suspend;end;procedure TForm1.FormCreate(Sender: TObject);
begin
test:=ttest.Create(true);
test.FreeOnTerminate := True;
end;end.
线程代码：
procedure ttest.Execute;
var i:integer;
begin
   for i:=1 to 10000 do
   begin
   form1.Caption :=inttostr(i);   if terminated  then exit;
   end;
end;运行一遍后，如果再想运行一遍，就会有如上错误，请问这是为何？