Ich habe den Konstruktor jetzt so geändert:
Delphi-Quellcode:
constructor TSleepingThread.Create(CreateSuspended: Boolean);
begin
inherited Create(True);
FEvent := TSimpleEvent.Create;
if not CreateSuspended then
Resume;
end;
Ausserdem gibt es noch einen 2. Thread in dem Demo um es einfache Datenübergabe zu zeigen.