Source position: threadh.inc line 50
type TThreadSetThreadDebugNameHandlerU = procedure(
threadHandle: TThreadID;
const ThreadName: UnicodeString
);