TIdEventXOVER

type TIdEventXOVER = procedure(

  AArticleIndex: Int64;

  ASubject: string;

  AFrom: string;

  ADate: TDateTime;

  AMsgId: string;

  AReferences: string;

  AByteCount: Integer;

  ALineCount: Integer;

  AExtraData: string;

  var VCanContinue: Boolean

) of object;