[TThread] - Startet nicht

[xZise]

Ich benutzte das erstemal das Thread-Objekt und habe schon ein Problem: Und zwar startet der Thread nicht.
Hier mal die Wichtigen Codestellen:
(Erstellen des Threads)

Delphi-Quellcode:

thread := tTest.Create(true);
thread.qdPath := qdPath;
thread.FreeOnTerminate := true;

(Starten des Threads)

Delphi-Quellcode:

tStart.Enabled := false;
thread.Resume;

(Executemethode)

Delphi-Quellcode:

procedure tTest.Execute;
begin
  ready := true;
  while ready do
  begin
    ShowMessage('');  <!--- Wird nicht angezeigt!
    if RenameFile(qdPath, qdPath + 't') then
    begin
       if newCaption <> 'a' then
      begin
        newCaption := 'a';
        Synchronize(UpdateCaption);
      end;
      RenameFile(qdPath + 't', qdPath);
    end else
    begin
       if newCaption <> 'r' then
      begin
        newCaption := 'r';
        Synchronize(UpdateCaption);
      end;
    end;
  end;
end;

(UpdateCaptionmethode)

Delphi-Quellcode:

procedure tTest.UpdateCaption;
begin
  frmUpdate.lReady.Caption := newCaption;
  frmUpdate.bUpdate.Enabled := newCaption = 'a';
end;

Er führt .Resume aus, aber den Rest nicht mehr...

PS: Keine Exceptions!