function CheckTest: Boolean;
var
  Prov: HCRYPTPROV;
  pbData: PBYTE;
  cbData: Cardinal;
  Flag: Cardinal;
begin
  Result := false;

  if CryptAcquireContext(Prov, nil, 'Infotecs Cryptographic Service Provider', 2, CRYPT_VERIFYCONTEXT) then
  begin
    Flag := CRYPT_FIRST;
    if CryptGetProvParam(Prov, PP_ENUMCONTAINERS, nil, cbData, Flag) then
    begin
      GetMem(pbData, cbData);
      try
        while CryptGetProvParam(Prov, PP_ENUMCONTAINERS, pbData, cbData, Flag) do
        begin
          Flag := CRYPT_NEXT;
          ShowMessage(PChar(pbData));
        end;
      finally
        FreeMem(pbData, cbData);
      end;
    end;
    CryptReleaseContext(Prov, 0);
    Result := true;
  end;
end;