TIdNNTPOnXPat

type TIdNNTPOnXPat = procedure(

  AContext: TIdNNTPContext;

  const AHeaderName: string;

  const AMsgFirst: Int64;

  const AMsgLast: Int64;

  const AMsgID: string;

  const AHeaderPattern: string

) of object;