function  fn_Get_Sign_Data(bl_Detached: boolean;  S_in: ANSIString; var S_out: AnsiString) :boolean;
const CADESCOM_CADES_TYPE = 1;  // Тип усовершенствованной подписи
      CADESCOM_BASE64_TO_BINARY = 1;
var  v_Signer, v_SignedData : Variant;
begin
  try     Result := False;

  v_Signer    := CreateOLEObject('CadesCOM.CPSigner');
  v_Signer.Certificate := g_Cert;
  v_Signer.KeyPin := g_Cert_Pass;
  v_Signer.Options := 1;// CAPICOM_CERTIFICATE_INCLUDE_WHOLE_CHAIN := 1;

// Объект CadesSignedData предоставляет свойства и методы для работы с усовершенствованной подписью.
  V_SignedData := CreateOLEObject('CAdESCOM.CadesSignedData');

  v_SignedData.ContentEncoding := CADESCOM_BASE64_TO_BINARY;
  B64Encode(s_in, s_in);
  v_SignedData.Content := s_In;
  s_out := v_SignedData.SignCades(v_Signer, CADESCOM_CADES_TYPE, bl_Detached,0);

  Result := True;
  finally
    if not VarIsNull(v_Signer)       then v_Signer := Unassigned;
    if not VarIsNull(v_SignedData)   then v_SignedData := Unassigned;
  end;
end;

dataToSignBase64 := EncodeToBase64(dataToSign);

prov := oCertificate.PrivateKey;

SecureString := SecureString.SecureString;
FOR i := 1 TO STRLEN(KeyPin) DO BEGIN
  SecureString.AppendChar(KeyPin[i]);
END;

prov.SetContainerPassword(SecureString);

ContentInfo := ContentInfo.ContentInfo(Encoding.GetBytes(dataToSignBase64));
SignedCms := SignedCms.SignedCms(ContentInfo,bDetached);
CmsSigner := CmsSigner.CmsSigner(oCertificate);
CmsSigner.IncludeOption := X509IncludeOption.WholeChain; //3- WholeChain

SignedCms.ComputeSignature(CmsSigner);

sSignedMessage := Convert.ToBase64String(SignedCms.Encode());