[Erro na passagem de parâmetros no SAT]

Em 16/01/2017 at 13:42, Daniel Simoes disse:

Você declarou o evento na IDE ? 

Na dúvida, apague o evento atual, e crie um novo...

Olá Daniel, Boa noite.

Não havia declarado realmente. Bastou um duplo clique no evento do componente e a IDE criou e vinculou o código corretamente. Obrigado!

[Erro na passagem de parâmetros no SAT]

Ola Senhores, Tudo bem?

Estou tendo problemas em Delphi 10 Seattle,

O Exemplo funciona muito bem, mas meu código não. Acho que estou esquecendo de declarar ou inicializar algo. Não retorna o código de ativação pq a cláusula if Assigned retorna FALSO. Vcs saberiam me dizer em que eu estou errando?

GRATO!

function TACBrSAT.GetcodigoDeAtivacao : AnsiString ;
var
  AcodigoDeAtivacao : AnsiString ;
begin
  AcodigoDeAtivacao := '';

  if Assigned( fsOnGetcodigoDeAtivacao ) then
     fsOnGetcodigoDeAtivacao( AcodigoDeAtivacao ) ;

  Result := AcodigoDeAtivacao;
end;