[M-UNIT]

Раньше вроде все норм был а сейчас непонимаю неработает ваще отправка почты через IDSMTP & IDMESSAGE

вот код:

Код:

var smtp: tidsmtp; 
msg:tidmessage;
begin
Smtp:=TIdSMTP.Create; 
Smtp.Host:='smtp.mail.ru'; 
Smtp.Password:='***'; 
Smtp.Username:='***@mail.ru'; 
smtp.Port:=2525; 
Msg:=TIdMessage.Create;
msg.body:=memo1.lines; 
Msg.Subject:='***'; 
Msg.From.Text:='***@mail.ru'; 
Msg.Recipients.Add;; 
msg.Recipients.Items[0].Text:='***@mail.ru'; 
Smtp.Connect; 
if smtp.Connected then 
begin 
Smtp.Send(Msg); //вот здесь ошибка выдается(((
end; 
Smtp.Disconnect;
end;

что делать?в чем проблема???раньше вот так делал вроде работал