TasksEx (Delphi) - исходник программы, показывающей пример создания модуля, который использует две функции: EnterWorkerThread и LeaveWorkerThread. Код, помещенный между этими двумя вызовами, будет выполняться как если бы он был помещен в метод TThread.Execute - Автор Александр Алексеев.