[Looker]

Пытался написать программу, которая отправит e-mail на определенный адрес:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

IDMessage1.Body.Text:='что-нибудь';  IdMessage1.From.Address:=LabeledEdit1.Text; //адрес отправителя     IdMessage1.Recipients.EMailAddresses:='...@mail.ru';  IDMessage1.Subject:=;тема';   idSMTP1.AuthenticationType:=atLogin; idSMTP1.Ustrname:='username'; idSMTP1.password:='password'; idSMTP.host:='smtp.mail.ru'; idSMTP.port:=25;  idSMTP1.Connect;    idSMTP1.Send(IDMessage1);    idSMTP1.Disconnect;

однако после нажатия на кнопку, ничего не происходит, программа висит какое-то время и потом выводит сообщение "Connection closed gracefully"
письмо естественно не доходит...
Подскажите пожалуйста, что я не так сделал?