var
  sSerialNumber: AnsiString;
  oSigner: Olevariant;
  outCTR: Olevariant;
  oSignedData: OleVariant;
  sSignedData: OleVariant;
  Buffer: WideString;
  FileStm: TFileStream;
begin

  FileStm := TFileStream.Create(SourceFile.Text, fmOpenRead or fmShareDenyWrite);
  try
    Pointer(Buffer) := ActiveX.SysAllocStringByteLen(nil, FileStm.Size);
    FileStm.ReadBuffer(Pointer(Buffer)^, FileStm.Size);
  finally
    FreeAndNil(FileStm);
  end;

  sSerialNumber := '01F349E07AC40CD480E8119BF4C5BB9FE2';                   {номер сертификата}
  oSigner := COMOBJ.CreateOleObject('CAdESCOM.CPSigner');    {}
  if GetSignerCertificate(sSerialNumber, outCTR) then         {если нашли указанный сертификат}
  begin
    oSigner.Certificate := outCTR;                           {}
    oSignedData := COMOBJ.CreateOleObject('CAdESCOM.CadesSignedData'); {}
    oSignedData.ContentEncoding := 0; //  или  1;                                  {}
    oSignedData.Content := Buffer; // или при ContentEncoding  кодировать => 'U29tZSBEYXRhLg==';                         {}
    sSignedData := oSignedData.SignCades(oSigner, {CADES_BES}1, True, {CAPICOM_ENCODE_BASE64}0);   {получаем подписанные данные}
    Logs.Text := sSignedData;
    try
      oSignedData.VerifyCades(sSignedData, {CADES_BES}1, True);  {проверяем подписанные данные}

      ShowMessage('Подпись верна')
    except
      on E: Exception do
        ShowMessage('Подпись не верна: ' + E.Message)
    end;
  end;

end;