Ошибка при отправлении idSmtp

[_PROGRAMM_]

Приветствую всех форумчан. Хочу программно отправить сообщение с e-mail на другой e-mail через delphi. На форму кинул только компонент idSmtp. Вот код.

procedure TForm1.Button1Click(Sender: TObject);
var
Msg: TIdMessage;
begin
  SMTP.Host := 'smtp.yandex.ru';
  SMTP.Port:=25;
  SMTP.Username:='XXX';
  SMTP.Password:='XXX';
    SMTP.AuthenticationType:=atLogin;
  with msg do
     begin
      Body.Text:='Текст';
      From.Text := 'buzdin6@ya.ru';
      Recipients.EMailAddresses := 'buzdin6@ya.ru';
            Subject := '123';
      end;
   SMTP.Connect;
   try
  SMTP.Send(msg);
   finally
      SMTP.Disconnect;
   end;
end;

При нажатии на кнопку вылетает ошибка. Не пойму в чем проблема. Сервер - яндекс. Еще пишет, что-то про инициализацию переменной msg.