performance - DeleteCriticalSection が InitializeCriticalSection よりも遅いのはなぜですか?

Question

アプリケーションの終了時またはサービスの停止時に、20000 を超える CriticalSections を削除する必要があります。しかし、DeleteCriticaSection 関数が非常に遅いことがわかりました。私はテストを行います：

var
  CC: array[1..20000] of TRTLCriticalSection;

procedure TForm1.Button1Click(Sender: TObject);
var
  T: Cardinal;
  I: Integer;
begin
  Memo1.Lines.Add('InitializeCriticalSection:');
  T :=  GetTickCount;
  for I := 1 to 20000 do
    InitializeCriticalSection(CC[i]);
  Memo1.Lines.Add(IntToStr(GetTickCount - T));
  EnterCriticalSection(CC[3009]);
  Memo1.Lines.Add('--------------');
  LeaveCriticalSection(CC[3009]);
  Memo1.Lines.Add('DeleteCriticalSection:');
  T := GetTickCount;
  for I := 1 to 20000 do
    DeleteCriticalSection(CC[i]);
  Memo1.Lines.Add(IntToStr(GetTickCount - T));
end;

結果：

InitializeCriticalSection:
62
--------------
DeleteCriticalSection:
2262

良い提案はありますか？