Mein TThread blockiert die Anwendung

[Poolspieler]

Hallo,
ich möchte eine von mir geschriebenen Klasse im Hintergrund meiner Applikation laufen lassen.
Ich möchte diese Klasse aber über Buttons "bedienen" können.
Diese Klasse soll dann z.B. einen Labeltext oder andere Dinge verändern.

Hier mein Beispielcode, der eigentlich nur dauern den Labeltext von 1 bis 100 ändern soll:

Delphi-Quellcode:

unit UnitThread;

interface

uses Classes, ExtCtrls, Windows, StdCtrls;

type
  TMeinThread = class(TThread)
  private
    { Private-Deklarationen }
    Text: TLabel;
    procedure machen;
  protected
    procedure Execute; override;
  public
    { Public-Deklarationen }
    constructor Create(_Text: TLabel);
  end;

implementation

uses SysUtils;

constructor TMeinThread.Create(_Text: TLabel);
begin
  inherited Create(false);
  Priority := tpNormal;
  Text := _Text;
end;

procedure TMeinThread.Execute;
begin
  while not Terminated do begin
    Synchronize(machen);
  end;
end;

procedure TMeinThread.machen;
var
  i: integer;
begin
  for i := 1 to 100 do begin
    Text.Caption := IntToStr(i);
  end;
end;

end.

Wenn ich davon in meinem Createereignis des Formulars ein Objekt erzeuge, dann steht die Anwendung - hat jemand einen Tip für mich???

Gruß und danke,
Poolspieler