关于线程的使用问题！

Question

通过一个事件来建立（多次）
line6_thread.Create(line_number[1],handle);
。
//定义线程
constructor line6_thread.Create(const p_line6id: integer;
      const p_line6handle: thandle);procedure line6_thread.Execute;
begin
  inherited;
  freeonterminate := True;
  while True do
  begin
    if terminated then break;
    Synchronize(readmem);
  end;
end;procedure line6_thread.readmem;
begin

   Terminate;    //结束线程？？？？？？？？？？？？？？？？
 end;
在程序运行多天没有内存益出。
请大侠指教这样来处理是否正确。特别是在结束时的处理

Answer 1

只要thread还没有destroy，任何时候任何线程调用它的Terminate方法都可以的，这个方法其实很简单，你看源码就知道，它只是改变线程的terminated标志，不涉及系统调用，没有任何其他副作用