为什么运用一个线程，在win2000任务管理器中显示的CPU使用率为100%

Question

为什么运用一个线程，在win2000任务管理器中显示的CPU使用率为100%,先声谢谢
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ADODB;
 type
     TTest=class(TThread)
       private
         answer:integer;
        protected
           procedure getanswer;
           procedure execute;override;
       end;
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    SpeedButton1: TSpeedButton;
    ADOCommand1: TADOCommand;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}
 procedure TTest.getanswer;
  begin
  form1.edit1.Text:=inttostr(answer);
   end;
procedure TTest.execute;
var
i:integer;
begin
       FreeOnTerminate:=true;
        for i:=0 to 100000 do
            begin
              if terminated then break;
              inc(answer,i);
              synchronize(getanswer);            end;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
TTest.Create(false);end;

Answer 1

for i:=0 to 100000 do
            begin
              if terminated then break;
              inc(answer,i);
              synchronize(getanswer);              Sleep(1); // 添加这句试试
            end;