Was genau "funktioniert denn nicht"?

Im übrigen ist es im Execute() besser, seine "Endlos-"Schleifen mit while not (self.)Terminated do ... zu "rahmen", da der Thread sonst nie terminieren kann - auch nicht, wenn es ihm von außen gesagt wird.

(Delphi VCL) TTimer: Geht nicht, weil der auf Window-Messages basiert, die nur vom Hauptthread verarbeitet werden.