Delphi如何设置 PDF文件的打开密码

有没有大侠知道，帮忙指点。
就是要生成pdf文件，同时设置它的打开文件的密码，在打开pdf文件的时候需要输入这个密码才可以打开的。
Java有该方法，但是delphi一直找不到资源。求助，谢谢！Java的方法如下：
import java.util.EnumSet;import com.spire.pdf.PdfDocument;import com.spire.pdf.security.PdfEncryptionKeySize;import com.spire.pdf.security.PdfPermissionsFlags;public class EncryptPDF {public static void main(String[] args) {        //创建PdfDocument实例        PdfDocument doc = new PdfDocument();        //加载PDF文件        doc.loadFromFile("sample.pdf");        //加密PDF文件        PdfEncryptionKeySize keySize = PdfEncryptionKeySize.Key_128_Bit;        String openPassword = "123456";        String permissionPassword = "test";        EnumSet flags = EnumSet.of(PdfPermissionsFlags.Print, PdfPermissionsFlags.Fill_Fields);        doc.getSecurity().encrypt(openPassword, permissionPassword, flags, keySize);        //保存文件        doc.saveToFile("Encrypt.pdf");        doc.close();      }}完成代码后，运行程序，生成文档。此时打开文档需输入密码，可输入打开文档的密码，仅用于查看文档；输入权限密码，可编辑文档。