在delphi 2007中启动挂起线程的正确方法是什么？

unit MainForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TMyThread = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  end;

  TForm1 = class(TForm)
    btnStartThread: TButton;
    procedure btnStartThreadClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TMyThread }

procedure TMyThread.Execute;
begin
  // 在这里编写线程的代码
end;

{ TForm1 }

procedure TForm1.btnStartThreadClick(Sender: TObject);
var
  MyThread: TMyThread;
begin
  MyThread := TMyThread.Create(True); // 创建线程
  MyThread.FreeOnTerminate := True; // 当线程终止时释放线程对象
  MyThread.Start; // 启动线程
end;

end.