Source position: IdSMTPRelay.pas line 145
type TIdSMTPRelayStatus = procedure(
Sender: TObject;
AEMailAddress: TIdEMailAddressItem;
Action: TIdSMTPRelayStatusAction
) of object;