IdSMTP1.AuthenticationType := atLogin;

idSMTP1.Host := 'smtps.bol.com.br' ;

idSMTP1.Port := 587;

idSMTP1.Username := 'seuemail@bol.com.br';

idSMTP1.Password := 'suasenha';

idSMTP1.Connect(30000);

IdMessage1.From.Address := 'seuemail@bol.com.br';

IdMessage1.Sender.Name := 'seuemail@bol.com.br';

IdMessage1.Sender.Address := 'seuemail@bol.com.br';

IdMessage1.Recipients.EMailAddresses := 'seuemail@bol.com.br';

IdMessage1.Subject := edit1.Text + '''' + edit2.Text;

IdSMTP1.Send(IdMessage1);

IdSMTP1.Disconnect;