Assinar Digitalmente uma String

[Felipe Flores]

Fala pessoal,

estou tendo uma dificuldade em assinar uma string, isso mesmo, uma string e não um XML, sempre quando valido dá como assinatura inválida. Segue meu código:

 

Store := CoStore.Create;
Store.Open ( CAPICOM_CURRENT_USER_STORE , 'My' , CAPICOM_STORE_OPEN_READ_ONLY ) ;
CertsLista := Store.Certificates as ICertificates2;
CertsSelecionado := CertsLista.Select ( 'Certificado(s) Digital(is) disponível(is)' , 'Selecione o Certificado Digital para uso no aplicativo' , false ) ;
if not ( CertsSelecionado.Count = 0 ) then
begin
    CertDados := IInterface ( CertsSelecionado.Item[ 1 ] ) as ICertificate;

    Assinante := CoSigner.Create;
    Assinante.Certificate := CertDados;

    sigData := CoSignedData.Create;
    sigData.Content := 'OI5ZXWOTpo2sKdZbha+Idg=='; {Conteúdo a ser assinado}

    teste := sigData.Sign ( Assinante , False , CAPICOM_ENCODE_BASE64 ) ;
end;

Alguém já passou por isso? 

Grato!

Editado 28 Janeiro, 2021 por Felipe Flores
Faltou complementar