Record New/Dispose resultiert in MemoryLeaks

[Zacherl]

Statt der ThreadId, musst du die Instanz des aufrufenden Threads also Self als Parameter vom Typ TThread übergeben, aber dann sollte es ohne Probleme funktionieren die Funktion auszulagern