代码如下，为什么一删除线程窗体就没有反映呢？？如何解决呢？

Question

代码如下，为什么一删除线程窗体就没有反映呢？？如何解决呢？unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;type
  TForm1 = class(TForm)
    btn1: TButton;
    btn2: TButton;
    mmo1: TMemo;
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;type
  Txyz = class(TThread)
  published
    procedure Execute; override;
  end;var
  Form1: TForm1;
  XYZThread: Txyz;implementation{$R *.dfm}procedure Txyz.Execute;
begin
  while True do
  begin
    Form1.mmo1.Lines.Add('123456789');
  end;
end;procedure TForm1.btn1Click(Sender: TObject);
begin
XYZThread := Txyz.Create(False);
end;procedure TForm1.btn2Click(Sender: TObject);
begin
 XYZThread.Terminate;
 XYZThread.Free;
end;end.

Answer 1

procedure Txyz.Execute; 
begin
  //while True do
  while not Terminated do
  begin
    Form1.Memo1.Lines.Add('123456789');
  end;
end;