TOnSPFCheck

type TOnSPFCheck = procedure(

  ASender: TIdSMTPServerContext;

  const AIP: string;

  const ADomain: string;

  const AIdentity: string;

  var VAction: TIdSPFReply

) of object;