На некоторых машинах долго выполняются API функции, работающие с крипто-про.
Установлено CryptoPro 3.6, eToken для CryptoPro 3.6.

Код на Delphi, который долго выполняется

TFileUtils.LogException('CryptUtils.log', 'in GetContainerIfOne before while');
while CryptGetProvParam(hProv, PP_ENUMCONTAINERS, pbData, @cbData, Flag) do
begin
TFileUtils.LogException('CryptUtils.log', 'in GetContainerIfOne after CryptGetProvParam' +PChar(pbData));
Flag := CRYPT_NEXT;
cnt := cnt + 1;
tmpResult := PChar(pbData)
end;
TFileUtils.LogException('CryptUtils.log', 'in GetContainerIfOne after while');

Лог выполнения этого кода на компе c WinXP SP3

24.11.2009 15:57:18: in GetContainerIfOne before while
24.11.2009 15:57:21: in GetContainerIfOne after CryptGetProvParam 73a6480b-b282-45ef-b94f-3c5993ab7ce4
24.11.2009 15:57:29: in GetContainerIfOne after while

На Vista проблем со скоростью нет.
Кто сталкивался с подобным?