请问THREAD线程类 执行完成了 如何销毁

请教THREAD线程类 执行完成了 怎么销毁
type
  Scaner = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  end;
procedure Scaner.Execute;
var
i:Integer;
begin
for i := 0 to 100 do

  begin
  Sleep(100);
  end;
end;
procedure TForm1.Button4Click(Sender: TObject);
var
s:Tscan;
begin
  s:=Tscan.Create;

end;

要求Execute的代码执行完成后自动销毁 谢谢
[解决办法]