DLL_THREAD_DETACH

77AFD88B: 0F 1F 44 00 00                            nop dword ptr [rax+rax+00h]
77AFD890: B8 DB 3C 03 00                            mov eax, 00033CDBh
77AFD895: 48 63 C0                                  movsxd rax, rax
77AFD898: FF E0                                     jmp rax
77AFD89A: C3                                        ret

type
  TMItem = packed record
    ThreadId: Cardinal;
    OTHandle: THandle;
    Data: DWord;
  end;
  PMItem = ^TMItem;

var
 ftl: TThreadList;

function GetDataPtr: PDWord;
var
 i: Longint;
 pmi: PMItem;
 exCode: Cardinal;
begin
 Result := nil;
 with ftl.LockList do
   try
     for i:= Count-1 downto 0 do
       begin
         pmi := PMItem(List[i]);
         if pmi.ThreadId = GetCurrentThreadId then
           begin
             Result := @pmi.Data;
             Continue;
           end;

         GetExitCodeThread(pmi.OTHandle, exCode);
         if ExCode <> STILL_ACTIVE then
           begin
             OutputDebugString(PChar(IntToStr(ExCode)));
             CloseHandle(pmi.OTHandle);
             Dispose(pmi);
             Delete(i);
           end;
       end;

     if Result = nil then
       begin
         New(pmi);
         pmi.ThreadId := GetCurrentThreadId;
         DuplicateHandle( GetCurrentProcess,
                          GetCurrentThread,
                          GetCurrentProcess,
                          @pmi.OTHandle,
                          0,
                          False,
                          DUPLICATE_SAME_ACCESS);
         pmi.Data := 0;
         Add(pmi);
         Result := @pmi.Data;
       end;
   finally
     ftl.UnlockList;
   end;
end;

type
 TMyThread = class(TThread)
   procedure Execute; override;
 end;

procedure TMyThread.Execute;
var
 pData: PDWord;
begin
 pData := GetDataPtr;
 pData^ := Random(10000);
 Sleep (pData^);
 ReturnValue := pData^;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 ftl := TThreadList.Create;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 TMyThread.Create(False).FreeOnTerminate := True;
end;

BeginUpdate;
EndUpdate;