1:
2:

Thraed.execute;
ShowMessage('');                    

1:

MyThread := TMyThread.Create(False);                    

1:

MyThread := TMyThread.Create(True);                    

1:

MyThread.Resume;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure StartThread; 
var 
   MyThread: TThread; 
begin 
   MyThread := TThread.Create(true); {true bewirkt, dass der Thread initalisiert, aber noch nicht gestartet wird} 
   MyThread.Priority := tpLower; 
   MyThread.FreeOnTerminate := true;  //so wird der Thread auch nach dem beenden automatisch aus dem Speicher entfernt 

   MyThread.Resume;  //der Thread wird gestartet 
end; 

procedure MyThread.Execute; 
begin 
  showmessage('Hallo'); 
end;                    

1:

MyThread := TMyThread.Create(False); // Execute wirde sofort abgearbeitet                    

1:
2:

MyThread := TMyThread.Create(True); // Objekt wird erstellt aber Execute wartet noch
MyThread.Resume; // aber jetzt !                    

1:
2:
3:
4:
5:
6:
7:

ype
  MyThread = class(TThread)
  private
    { Private-Deklarationen }
  protected
    procedure Execute; override;
  end;