property OnHeader: TMailHeaderEvent
L'événement OnHeader
se produit juste après la génération de l'entête du mail.
procedure TForm1.Mailer1Header(Sender: TMailer; var Header: string); begin StatusBar1.SimpleText := Format('Sending header (%d bytes)', [Length(Header)]); end;