线程,为什么是这样

procedure TTesthread.execute;
var
i:integer;
begin
      FreeOnTerminate:=true;   //在delphi5开发指南书中所说是清除线程对象。
      for i:=1 to 200000 do
            inc(Answer,Round(Abs(Sin(Sqrt(i))));
        // FreeOnTerminate:=true;  为什么不加到这里了
end;一开始执行线程时用 FreeOnTerminate就清除线程对象，是合法的吗?不解，希望兄弟解惑
小弟，每天尽有10分送给大家，希望各位热心帮助的朋友海涵，小弟我人穷，只能祝大家身体健康
先声谢谢