Source position: IdSMTPServer.pas line 124
type TOnMailFromEvent = procedure(
ASender: TIdSMTPServerContext;
const AAddress: string;
AParams: TStrings;
var VAction: TIdMailFromReply
) of object;