S / Mime message with Sha-1 and certificate in Delphi

Question

Context: Delphi 2007

I am going to send an S / MIME message. There is a certificate that must be used to sign the message. There is also a certificate, which, I believe, includes the key (s) required for signing. Sha1 should be used

I saw some sha1 code examples and some examples that deal with certificates / keys, but not very good ones that combine them.

I see something nice and easy for myself, like the code below

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