» Работа в Delphi c CryptoApi

не могу открыть хранилище сертификатов
Delphi
procedure ()
var
hProv: HCRYPTPROV;
hStore:HCERTSTORE;
dest:Pwidechar;
sert:string;
destsize: integer;
begin
sert:=’AddressBook’;
destsize:=Length(sert);
StringToWideChar(sert,dest,destsize+1)
hStore:=nil;
hProv:=0;
hStore:=CertOpenStore(CERT_STORE_PROV_SYSTEM,0,hprov,CERT_SYSTEM_STORE_CU
RRENT_USER,dest);
MessageDlg(ErrToStr(GetLastError()), mtError, [mbOK], 0);
end;
//Выдается сообщение неизвестная ошибка
// Может не правильно передаю параметры
hprov=0, в MSDN рекомедуют hprov=null .
или не правильно передаю указатель на ’AddressBook’ в виде Unicode
//Не могу разобраться, помогите
//Где можно взять пример работа с хранилищем сертификатов на Delphi

Так какой код ошибки-то? Что возвращает CertOpenStore и что возвращает GetLastError?