Помогите установить сертификат

[Gregor]

я использую wsdl. по нему средствами среды сформировал классы. Там есть компонетнт HTTPRIO который работает с SOAP . Как указать сертификат? в интернете нарыл код

procedure OnBeforePost( const HTTPReqResp: THTTPReqResp; Data: Pointer) ;
var
  Store: IStore;
  Certs: ICertificates;
  Cert: ICertificate2;
  CertContext: ICertContext;
  PCertContext: PCCERT_CONTEXT;
  V: OleVariant;
  i: Integer;
  certificates: ICertificates;
begin
  V := '07C1E1CA997417E1CFF235FDD39C3093B7A827D2';
  try
    Store := CoStore.Create;
    Store.Open(CAPICOM_CURRENT_USER_STORE, 'MY', CAPICOM_STORE_OPEN_MAXIMUM_ALLOWED);
    certificates := Store.certificates;
    for i := 1 to certificates.count do
    begin
      Cert := IInterface(certificates.Item[i]) as ICertificate2;
      CertContext := Cert as ICertContext;
      CertContext.Get_CertContext(Integer(PCertContext));
      if InternetSetOption(Data, INTERNET_OPTION_CLIENT_CERT_CONTEXT, PCertContext, Sizeof(CERT_CONTEXT)) = False then
        ShowMessage('Ошибка');

    end;
  except on e: Exception    do
    ShowMessage(e.Message);
  end;
end

но функция InternetSetOption все время возвращает false