Entendo Código (ACBrEmail)

[Jheckson]

Estou tentando entender esse código mas não consigo saber onde se encontra a implementação desse método.

Vou descrever partes do código para mostrar!

  TACBrMail = class;

  TACBrOnMailProcess = procedure(const AMail: TACBrMail; const aStatus: TMailStatus) of object;

  published
    property OnMailProcess: TACBrOnMailProcess read fOnMailProcess write fOnMailProcess;

procedure TACBrMail.MailProcess(const aStatus: TMailStatus);
begin
  if Assigned(fOnMailProcess) then
    fOnMailProcess(Self, aStatus);
end;

 

Onde fica implementado o código dessa linha  

fOnMailProcess(Self, aStatus);

 

[BigWings]

É um evento, para permitir que cada programador insira o código que necessitar nesse ponto da execução.

Veja o demo do componente que faz uso desse evento.

[Jheckson]

Olhei lá, bem interessante. Obrigado pela resposta, foi uma dúvida simples mas tive que perguntar.