Source position: threadh.inc line 48
type TThreadSetThreadDebugNameHandlerA = procedure(
threadHandle: TThreadID;
const ThreadName: AnsiString
);