终止特定线程

Question

请大家在Delphi中需要一些有关线程的帮助。

在主表单中，我放置了一个线程，如下所示：

  TMyThread = class(TThread)
  private
    ...
    ...
  protected
    procedure Execute; override;
  public
    constructor create(my_parameter:integer);
  end;

我的项目有第二种形式，称为frm_modulodeenvio，可以被多次实例化， 每次实例化表单时，都会启动线程实例。

procedure Tfrm_modulodeenvio.FormCreate(sender: TObject);
begin
    FTMyThread := TMyThread.create(parameter);
end;

因此，我可以打开多个窗体实例，每个实例都启动一个线程。 现在，我想在表单关闭时终止线程（仅终止由该表单启动的线程，而不终止线程的其他实例）。

我该怎么做？

感谢您的帮助。

亚历山大。