var
  oStore,oCertificates,Certificates,oCertificate,oSigner,oSignedData:variant;
  sSignedMessage:string;
  s,s1:string;
  instream,outstream:TFileStream;
  ss:TStringstream;
  ws:Widestring;
begin
  s:='c:\cades\1111111.pdf';
  s1:='c:\cades\1111111.64';
  instream := TFileStream.Create(s, fmOpenRead);
  outstream := TFileStream.Create(s1, fmCreate);
  EncodeStream(instream,outstream); // Base64
  ss:=TStringstream.create('');
  outstream.position:=0;
  ss.copyfrom(outstream,outstream.size);


  instream.free;
  outstream.free;

   oStore := CreateOLEObject('CAPICOM.Store');
   oStore.Open (2, 'My', 0);//(CAPICOM_CURRENT_USER_STORE, CAPICOM_MY_STORE, CAPICOM_STORE_OPEN_MAXIMUM_ALLOWED);
   oCertificates := oStore.Certificates;//.Find(CAPICOM_CERTIFICATE_FIND_SUBJECT_NAME, certSubjectName);
   Certificates := oCertificates.Select('Nieneie na?oeoeeaoia', 'Auaa?eoa na?oeoeeao aey iiaiene aieoiaioa:');

   if (Certificates.Count = 0) then
   begin
       application.messagebox('1','');
       exit; 
   end;

   oCertificate := Certificates.Item[1];
   oSigner := CreateOLEObject('CAdESCOM.CPSigner');
   oSigner.Certificate := oCertificate;

   oSignedData := CreateOLEObject('CAdESCOM.CadesSignedData');
   oSignedData.ContentEncoding := CADESCOM_BASE64_TO_BINARY;
   oSignedData.Content := ss.datastring;
   sSignedMessage :='';
        try
            sSignedMessage := oSignedData.SignCades(oSigner, CADESCOM_CADES_BES, true);
        finally
            oStore.Close();
        end;

end;