Unit Unit1; 

Interface 

Uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls, EASendMailObjLib_TLB; 

Type 
  TForm1 = Class(TForm) 
    Button1: TButton; 
    Procedure Button1Click(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  End; 

Var 
  Form1: TForm1; 

Implementation 

{$R *.dfm} 

Procedure TForm1.Button1Click(Sender: TObject); 
Var 
  oSmtp : TMail; 
Begin 
  oSmtp := TMail.Create(Application); 
  oSmtp.LicenseCode := 'TryIt'; 

  // Your Gmail email address
  oSmtp.FromAddr := 'gmailid@gmail.com'; 

  // Add recipient email address
  oSmtp.AddRecipientEx( 'support@emailarchitect.net', 0); 

  // Set email subject
  oSmtp.Subject := 'simple email from gmail account'; 

  // Set email body
  oSmtp.BodyText := 'this is a test email sent from Delphi using Gmail'; 

  // Gmail SMTP server address
  oSmtp.ServerAddr := 'smtp.gmail.com'; 

  // If you want to use direct SSL 465 port,
  // Please add this line, otherwise TLS will be used.
  // oSmtp.ServerPort := 465;

  // detect SSL/TLS automatically
  oSmtp.SSL_init(); 

  // Gmail user authentication should use your
  // Gmail email address as the user name.
  // For example: your email is "gmailid@gmail.com", then the user should be "gmailid@gmail.com"
  oSmtp.UserName := 'gmailid@gmail.com'; 
  oSmtp.Password := 'yourpassword'; 

  ShowMessage( 'start to send email ...' ); 

  If oSmtp.SendMail() = 0 Then 
    ShowMessage( 'email was sent successfully!' ) 
  Else 
    ShowMessage( 'failed to send email with the following error: ' 
    + oSmtp.GetLastErrDescription()); 

End; 

End.