TOnMailMessageRead

type TOnMailMessageRead = procedure(

  Sender: TObject;

  position: Integer;

  Header: string;

  Date: string;

  Subject: string;

  ContentType: string;

  ContentText: string;

  Attachments: string

) of object;