[Looker]

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

Код:

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"
письмо естественно не доходит...
Подскажите пожалуйста, что я не так сделал?