Assinando NFe ACbr Delphi

procedure TNOTA_FISCAL_ELETRONICA.Action_AssinarExecute(Sender: TObject);
begin

if not FileExists(SDS_NFE.FieldByName('NFE_NOME_ARQUIVO_EMITIDO_XML').AsString) then
begin
  Application.MessageBox('ATENÇÃO - O Arquivo XML Ainda Não Foi Gerado! ','<<< Alerta do Sistema >>>',0);
  exit;
end;

if application.MessageBox(pchar('Deseja Realmente Assinar a Nota Fiscal Eletrônica?'+#13+#13+'Número da NF-e: '+SDS_NFE.FieldByName('NUMERO').AsString), 'Pergunta do Sistema', MB_YESNO + MB_ICONQUESTION) = IDYES then
begin

  configurar_AcbrNFE;
  // Sugestão de mais configuração para apresentação de mensagem mais amigável ao usuário final
  Datamodule1.ACBrNFe1.Configuracoes.Geral.ExibirErroSchema := False;
  Datamodule1.ACBrNFe1.Configuracoes.Geral.FormatoAlerta := 'Campo:%DESCRICAO% - %MSG%';

  Datamodule1.ACBrNFe1.NotasFiscais.Clear;
  Datamodule1.ACBrNFe1.NotasFiscais.LoadFromFile(SDS_NFE.FieldByName('NFE_NOME_ARQUIVO_EMITIDO_XML').AsString, True);

  try
    Datamodule1.ACBrNFe1.NotasFiscais.Assinar;
    if Datamodule1.ACBrNFe1.NotasFiscais.Items[0].Alertas <> '' then
    Memo1.Lines.Add('Alertas: '+Datamodule1.ACBrNFe1.NotasFiscais.Items[0].Alertas);
    Application.MessageBox('Nota Fiscal Eletrônica Assinada Com Sucesso !', '<<< Alerta do Sistema >>>', MB_OK + MB_ICONEXCLAMATION);
  except
    on E: Exception do
    begin
      Memo1.Lines.Add('Exception: '+E.Message);
      Memo1.Lines.Add('Erro: '+Datamodule1.ACBrNFe1.NotasFiscais.Items[0].ErroValidacao);
      Memo1.Lines.Add('Erro Completo: '+Datamodule1.ACBrNFe1.NotasFiscais.Items[0].ErroValidacaoCompleto);
    end;
  end;

end;

end;