在Delphi中使用Sha-1和证书对S/Mime消息进行签名

背景：德尔福2007

我将要发送S/MIME消息。有一份证书可用于签署信息。还有一个证书，我想它包含了进行签名所需的密钥。应使用Sha1

我已经看到了一些sha1代码示例，以及一些处理证书/密钥的示例，但并不是很好地将它们结合在一起

我自己看到了一些很好很简单的东西，比如下面的代码

someObj = new SomeObj("key/cert", "sha-1");    
hashedMessage = so.Hash("orignal message");