Завершение единицы заказывает для приложения, скомпилированного с пакетами во время выполнения?

Я должен выполнить свой код после завершения единицы SysUtils.

Я поместил свой код в отдельную единицу и включал его сначала в пункт использования dpr-файла, как это:

project Project1;

uses
  MyUnit,    // <- my separate unit
  SysUtils,
  Classes,
  SomeOtherUnits;

procedure Test;
begin
  //
end;

begin
  SetProc(Test);
end.

MyUnit похож на это:

unit MyUnit;

interface

procedure SetProc(AProc: TProcedure);

implementation

var
  Test: TProcedure;

procedure SetProc(AProc: TProcedure);
begin
  Test := AProc;
end;

initialization

finalization
  Test;
end.

Обратите внимание, что MyUnit не имеет никакого использования.

Это - обычный Windows exe, никакая консоль, без форм и скомпилированный с пакетами во время выполнения по умолчанию. MyUnit не является частью никакого пакета (но я попытался использовать его от пакета также).

Я ожидаю, что раздел завершения MyUnit будет выполняться после раздела завершения SysUtils. Это - то, что справка Delphi говорит мне.

Однако это не всегда имеет место.

У меня есть 2 тестовых приложения, который отличается немного кодом в Тестовой задаче/dpr-file и единицах, перечисленных в использовании. MyUnit, однако, перечислен сначала во всех случаях.

Одно приложение запущено как ожидалось: Halt0-> FinalizeUnits->... другие единицы...-> завершение SysUtils-> завершение MyUnit->... другие единицы...

Но второе не. Завершение MyUnit вызывается перед завершением SysUtils. Цепочка фактического вызова похожа на это: Halt0-> FinalizeUnits->... другие единицы...-> (пропущенное) завершение SysUtils-> завершение MyUnit->... другие единицы...-> (выполняемое) завершение SysUtils

Оба проекта имеют очень похожие настройки. Я попробовал много для удаления/минимизирования их различий, но я все еще не вижу оснований для этого поведения.

Я попытался отладить это и узнал что: кажется, что каждая единица имеет некоторый подсчет ссылок. И кажется, что InitTable содержит, умножают ссылки на ту же единицу. Когда раздел завершения SysUtils называют в первый раз, когда - он изменяется, ссылка противостоят и ничего не делают. Затем завершение MyUnit выполняется. И затем SysUtils называют снова, но на этот раз касательно количества достигает нуля, и раздел завершения выполняется:

Finalization: // SysUtils' finalization
5003B3F0 55               push ebp          // here and below is some form of stub
5003B3F1 8BEC             mov ebp,esp
5003B3F3 33C0             xor eax,eax
5003B3F5 55               push ebp
5003B3F6 688EB50350       push $5003b58e
5003B3FB 64FF30           push dword ptr fs:[eax]
5003B3FE 648920           mov fs:[eax],esp
5003B401 FF05DCAD1150     inc dword ptr [$5011addc] // here: some sort of reference counter
5003B407 0F8573010000     jnz $5003b580     // <- this jump skips execution of finalization for first call
5003B40D B8CC4D0350       mov eax,$50034dcc // here and below is actual SysUtils' finalization section
...

Может кто-либо действительно ли уничтожить может осветить по этой проблеме? Я пропускаю что-то?