Como ativar os processos do ACBrMail em RunTime?

[ANT.CARLOS.SP]

Olá, boa tarde!

Tenho o seguinte problema:
Estou criando o  ACBrMail em RunTime, até ai tudo certo, funcionando normal,
mas agora quero ativar as mensagens de processos e não sei como fazer isto.
Alguém poderia me explicar como fazer isto?

 ACBrMail1:= TACBrMail.Create(nil);

//
//...como ativar estes procedimentos do ACBrMail em RunTime?
//
procedure ACBrMail1AfterMailProcess(Sender: TObject);
procedure ACBrMail1BeforeMailProcess(Sender: TObject);
procedure ACBrMail1MailException(const AMail: TACBrMail;
         const E: Exception; var ThrowIt: Boolean);
procedure ACBrMail1MailProcess(const AMail: TACBrMail;
         const aStatus: TMailStatus);

 

A quem puder ajudar, desde já meus agradecimentos.

 

 

[Daniel Simoes]

Eventos são na verdade, propriedades...

Você precisa criar as Procedures, com a assinatura do método, e atribuir ao Evento do componente...

[ANT.CARLOS.SP]

Olá boa tarde!

Citar

Eventos são na verdade, propriedades...

Você precisa criar as Procedures, com a assinatura do método, e atribuir ao Evento do componente...

Então, as procedures já as criei, mas como fazer a assinatura do método, e atribuir ao Evento do componente.?

Este é meu grande problema, vc poderia descrever como fazer isto?

[Daniel Simoes]

  ACBrMail1.OnMailProcess := ACBrMail1MailProcess;

 

[ANT.CARLOS.SP]

Maravilha, funcionou corretamente.

vou deixa a dica aqui:

    ACBrMail1:= TACBrMail.Create(nil);
    ACBrMail1.OnMailProcess  := ACBrMail1MailProcess;
    ACBrMail1.OnMailException:= ACBrMail1MailException;
    ACBrMail1.OnBeforeMailProcess:= ACBrMail1BeforeMailProcess;
    ACBrMail1.OnAfterMailProcess := ACBrMail1AfterMailProcess;