Wahrscheinlich liegt es an der guten alten Delphi 5 Version, die hier so vor sich hinwerkelt
Dort wird (noch) kein Aufruf von ExitThread gemacht:
Delphi-Quellcode:
***** Classes.pas ******
<--schnipp-->
destructor TThread.Destroy;
begin
if not FFinished and not Suspended then
begin
Terminate;
WaitFor;
end;
if FHandle <> 0 then CloseHandle(FHandle);
inherited Destroy; //von TObject
RemoveThread;
end;
<--schnapp-->
<--schnipp-->
procedure RemoveThread;
begin
EnterCriticalSection(ThreadLock);
try
if ThreadCount = 1 then
PostMessage(ThreadWindow, CM_DESTROYWINDOW, 0, 0);
finally
LeaveCriticalSection(ThreadLock);
end;
end;
<--schnapp-->