Fragen zum TThread, Programm absturzsicher?

[himitsu]

in D7 dürfte es auch nicht abstürzen

und so einfach verschlugt wird die Exception nicht wirklich

{} ist in D2009 drin und gab's in D7 noch nicht

Delphi-Quellcode:

function ThreadProc(Thread: TThread): Integer;
var
  FreeThread: Boolean;
begin
  {}InternalCurrentThread := Thread;
  {}if Thread.FSuspended then sem_wait(Thread.FCreateSuspendedSem);
  try
    if not Thread.Terminated then
    try
      Thread.Execute;
    except
      Thread.FFatalException := AcquireExceptionObject;
    end;
  finally
    FreeThread := Thread.FFreeOnTerminate;
    Result := Thread.FReturnValue;
    Thread.DoTerminate;
    Thread.FFinished := True;
    SignalSyncEvent;
    if FreeThread then Thread.Free;
    EndThread(Result);
  end;
end;