有关线程的终止

Question

Var T1:Thread1;procedure Thread1.Execute;
var
  i:integer;
begin
  for i:=1 to 1000000 do
    begin
      if T1.Terminated then
        begin
          exit;
        end;
      synchronize(updateedit);
      sleep(10);
    end;
end;我用 T1.Free;可以终止thread1.execute;但问题是sleep(10)换成sleep(10000)后，非要等10秒才能终止，有什么办法立即终止它。

Answer 1

begin
  for i:=1 to 1000000 do
    begin
      if T1.Terminated then
        begin
          exit;
        end;
      synchronize(updateedit);
j:=0
while not fterminated and j<100
begin    
  sleep(10);
 j:=j+1;
end;
  end;
end;

Answer 2

while (not fterminated) and (j<100)

Answer 3

用Api函数TerminateThread，马上让她结束

Answer 4

请问过客api的用法：terminatethread(T1.ThreadID,0);不行。如何写?