var
  Form1: TForm1;
  MyThread : TMyThread;
implementation

{$R *.dfm}

procedure TMyThread.execute;
var
  I: Integer;
  Event : TEvent;
begin
 while (not Terminated) do
 for I := 0 to 256 - 1 do
 begin
  form1.caption := inttostr(i);
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 MyThread.execute;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 with MyThread do
 begin
  WaitFor;
  Free;
 end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 MyThread := TMyThread.Create(true);
 MyThread.FreeOnTerminate := True;
 MyThread.Resume;
 MyThread.Suspend;
 MyThread.Terminate;
end;