Delphi ex5 - Send mail

Hvorfor er det jeg ikke kan få denne kode til at virke?

  IdSMTP1.Heloname:='test';
  IdSMTP1.Host:='smtp.live.com';
  IdSMTP1.Username:='Test@live.dk';
  IdSMTP1.Port:=587;
  IdSMTP1.Password:='Kode';
  IdSMTP1.Connect;

  IdMessage1.clear;
  IdMessage1.From.Text :='Testing';
  IdMessage1.BccList.EMailAddresses :='Test@live.dk';
  IdMessage1.Priority := mpHigh;
  IdMessage1.Sender.Text:='Umail';
  IdMessage1.Subject := 'Subject';
  IdMessage1.Body.Add('test');

  IdSMTP1.Send(IdMessage1);

Fejl: EIdSMTPReplyError with message 'Must issue a STARTTLS command first'.

Bruger indy 10.