使用delphi TThread类创建线程备忘录

备忘，不常用经常忘了细节

TMyThread = class(TThread)
private
{ Private declarations }
protected
procedure Execute; override; {执行}
procedure Run; {声明多一个过程，把功能代码写在这里再给Execute调用}
end;

procedure TMyThread.Execute;
begin
{ Place thread code here }
FreeOnTerminate := True; {加上这句线程用完了会自动注释}
Run;
end;

procedure TMyThread.Run;
begin
//要执行的事情
end;

MyThread := TMyThread.Create(False);  //过程中调用代码