Ohne das jetzt direkt ausprobiert zu haben, aber wenn du den Code

CreateThread(nil, 0, @TXxxxxxx.WorkThread, nil, 0, ThreadID); in

CreateThread(nil, 0, @TXxxxxxx.WorkThread, Self, 0, ThreadID); änderst, könnte es auch schon funktionieren.

Hintergrund: Die ThreadProc, die beim CreateThread im 3. Parameter übergeben wird, bekommt beim Aufruf den 4. Parameter als Parameter übergeben. Setzt man diesen auf die Instanz der Klasse, dann kommt das wiederum einem simplen Methodenaufruf gleich.

Ungeachtet dessen würde ich aber auch einen TThread-Abkömmling empfehlen, da dieser einem schon einen gehörigen Verwaltungsaufwand abnimmt.