Nach Thread Terminate Friert mein Programm ein Warum?

[CrashBack]

Ich habe mal son bisl Rumgespielt mit dem thema Thread. Es Läuft auch so weit nur wenn ich auf Thread Beenden klick dann hängt das Programm sich auf, Naja besser Gesagt es Friert ein. Hab mir das Beispiel auf http://wiki.delphigl.com/index.php/T...Multithreading als Vorlage Genutzt.


Was mach ich Falsch?

(Bevor es wieder Beschwerden hagelt mit meinem Deutsch ich bin Norweger und Behersche das Deutsch nicht zu 100%
und da es Auf Norwegisch solche guten Foren nicht giebt. Bin ich hier. Ich hoffe man Vergiebt mir.)

Delphi-Quellcode:

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;