线程停止问题

Question

procedure TForm1.Button1Click(Sender: TObject);　　//开始
begin
  thread:=bb.Create(false);
end;procedure TForm1.Button2Click(Sender: TObject);   //停止
begin
  thread.Free;
  thread.Terminate
end;
我在完成第第三个步聚时按停止操作时，线程能完全停止，而是在从步聚一按停止时，线程并没有完成停止，而是再再执行下一步聚才能完全停止；请问如何解决。
下面是线程的内容：
procedure bb.Execute;
var
i:integer;
begin
 i:=0;
  while not Terminated do
  begin
     form1.Memo1.Lines.Add('1:'+inttostr(i));　　//步聚一
     i:=i+1;
     if terminated=true then exit;
     sleep(5000);     form1.Memo1.Lines.Add('2:'+inttostr(i));   //步聚二
     i:=i+1;
     if terminated=true then exit;
     sleep(3000);     form1.Memo1.Lines.Add('3:'+inttostr(i));　//步聚三　
     i:=i+1;
     if terminated=true then exit;
     sleep(3000)  end;
end;

Answer 1

1. Button1中创建的线程类使用false参数，是当线程类bb的实例创建后立即执行。
2. 在步骤一附件点击，实际上if terminated=true then exit;已经执行，这里terminated = false，执行sleep函数, sleep执行完成后，terminated = true，继续执行步骤二，执行到if terminated=true 判断时，条件成立，退出
3. 直接在步骤三执行时，terminated在sleep(3000)完成后被设置成true，然后进行while判断，while条件判断不成立，循环结束。

Answer 2

分析程序执行流程：
你在步聚三　按停止操作时，接下来程序会继续循环从而就会执行while not Terminated do   到这里就会退出(因为你停止操作就是把Terminated 置为真)。你在步聚一 按停止操作时，接下来会执行步骤二，三。在这之后才会检测线程是否退出条件while not Terminated do 这也就是你上面说的那种情况。
要实现你说的:
procedure bb.Execute; 
var 
i:integer; 
begin 
i:=0; 
  while not Terminated do 
  begin 
    form1.Memo1.Lines.Add('1:'+inttostr(i));　　//步聚一 
    i:=i+1; 
    if terminated=true then exit; 
    sleep(5000); 
    if Terminated then Exit;   //不断的检测
    form1.Memo1.Lines.Add('2:'+inttostr(i));  //步聚二 
    i:=i+1; 
    if terminated=true then exit; 
    sleep(3000); 
    if Terminated then Exit;   //不断的检测
    form1.Memo1.Lines.Add('3:'+inttostr(i));　//步聚三　 
    i:=i+1; 
    if terminated=true then exit; 
    sleep(3000)   end; 
end;

Answer 3

2、3楼正确。
需要检测Terminated的状态