procedure TForm1.EnviarEmail;
var
  E: TSndEmail;
begin
  E := TSndEmail.Create;
  E.FromName := 'NOME';
  E.SendTo := 'teste@teste.com.br';
  E.Body.Text('CORPO');
  E.Subject := 'ASSUNTO';

  E.FromAddress := 'teste@teste.com.br';
  E.Host := 'smtp.gmail.com';
  E.User := 'teste@teste.com.br';
  E.Pass := 'SENHA';
  E.UseSSL := True;
  E.Port := 465;

  if E.Send then
    ShowMessage('E-mail enviado');
end;