Gerar autenticação token Santander

[DanielOliver]

Bom dia, estou com uma pequena dúvida que deve ser sanada bem fácil, consegui fazer toda autenticação do santander, certificado, id tudo, minha única dúvida está nessa linha de código

 

function TOAuth.GerarToken: Boolean;
var
  LToken : String;
  LExpire: TDateTime;
begin

  //if (Assigned(FACBrBoleto.OnAntesAutenticar)) then
  //begin
    CarregaCertificados;
    FACBrBoleto.OnAntesAutenticar(LToken, LExpire);
    FToken  := LToken;
    FExpire := LExpire;
  //end;

  if (Token <> '') and (CompareDateTime(Expire, now) = 1) then //Token ja gerado e ainda válido
    Result := true
  else //Converte Basic da Autenticação em Base64
    Result := Executar('Basic ' + String(EncodeBase64(AnsiString(ClientID + ':' + ClientSecret))));

  if (Assigned(FACBrBoleto.OnDepoisAutenticar)) then
    FACBrBoleto.OnDepoisAutenticar(Token, Expire);
end;

end.


Nessa parte 
  //if (Assigned(FACBrBoleto.OnAntesAutenticar)) then

Não sei como alimentar isso, aí estava testando não carregava os certificados e dava erro de credencial, só comentei a linha funcionou. Só não tenho como deixar assim porque vou implementar outros bancos e aí pode dar problema com algum que não precise certificado. 

[Juliomar Marchetti]

Acho que deveria ter uma negação ai

ou melhor esse carregar deveria de estar fora se ele já não carrega em outros lugares