amicommon: make AThreads call the thread init/exit chain

git-svn-id: trunk@30992 -

rtl/amicommon/athreads.pp

@@ -460,7 +460,9 @@ begin
   if not exitSuspend then
     begin
       InitThread(threadInfo^.stackLen);
+      DoThreadInitProcChain;
       threadInfo^.exitCode:=Pointer(threadInfo^.f(threadInfo^.p));
+      DoThreadExitProcChain;
       DoneThread;
     end;