🚀 go-pugleaf

Witam.
Mam taki kawałek kodu który tekst z memo powinien podpisać wybranym 
certyfikatem. Jednak przy wywołaniu Sing wypada błąd "Podana para kluczy 
nie istnieje". Grzebię po MSDN'ie już drugi dzień i nie mogę namierzyć 
jak podpisać dane certyfikatem kwalifikowanym.

var
     store: TStore;
     signer: TSigner;
     sData: TSignedData;
     certificates: ICertificates2;
     certificate: ICertificate2;
     I: integer;
begin
   store := TStore.Create(nil);
   store.Open(CAPICOM_CURRENT_USER_STORE, 'My', 
CAPICOM_STORE_OPEN_MAXIMUM_ALLOWED or 
CAPICOM_STORE_OPEN_INCLUDE_ARCHIVED or CAPICOM_STORE_OPEN_EXISTING_ONLY);

   certificates := (store.Certificates as ICertificates2).Select('Podpis 
danych', 'wybierz certyfikat', false);
   if certificates.Count=0 then
   begin
      Application.MessageBox('Nie znaleziono odpowiedniego 
certyfikatu.', '', MB_OK + MB_ICONWARNING);
      Exit;
   end;
   certificate:=IInterface(certificates.Item[1]) as ICertificate2;
   signer:=TSigner.Create(self);
   signer.Certificate:=Certificate;

   mmo1.Lines.Add('');
   mmo1.Lines.Add(certificate.SubjectName);

   sData:=TSignedData.Create(self);
   sData.Connect;
   sData.Content:=mmo1.Text;
   mmo1.Text:=sData.Sign(signer.DefaultInterface, true, 
CAPICOM_ENCODE_BASE64);
   sData.Disconnect;
   sData.Free;
   signer.Free;
   store.close();
   store.Free;
end;

-- 
Pozdrawiam
AbiX