m := TIdMessage.Create(Form1);
 m.From.Text:='***@yandex.ru';
 m.Recipients.Add;
 m.Recipients.Items[0].Text:='***@yandex.ru';
 m.Body.Text:='test';
 Form1.IdSMTP1.AuthenticationType:=atLogin;
 Form1.IdSMTP1.Host:='smtp.yandex.ru';
 Form1.IdSMTP1.Username:='login';
 Form1.IdSMTP1.Password:='pass';

 try
  Form1.IdSMTP1.Connect();
  if Form1.IdSMTP1.Connected then
   try
    Form1.IdSMTP1.Send(m);
    ShowMessage('Ok');
    Form1.IdSMTP1.Disconnect;
    m.Free;
   except
    on E:Exception do
     ShowMessage('Error sending: '+E.Message);
   end;
 except
  on E:Exception do
   ShowMessage('Error connected: '+E.Message);
 end;