Sample send e-mail in Delphi