Надо отправить текст из мемо1 на электронную почту делаю так:

idmessage1.Body := memo1.Lines;
idmessage1.From.Text := 'получатель@mail.ru';
idmessage1.Recipients.Add;
idmessage1.Recipients.Items[0].Text := 'отправитель@mail.ru';
idmessage1.Subject := '+1akk' ;
idsmtp1.Host := 'mail.ru';
idsmtp1.Port := 25;
idsmtp1.Username := 'ящик отправителя' ;
idsmtp1.Password :='пароль от ящика';
idsmtp1.AuthenticationType :=atLogin;
IdSMTP1.Connect(10);
if IdSMTP1.Connected then
begin
IdSMTP1.Send(Idmessage1)
end;
IdSMTP1.Disconnect;
end;

Запускаю прогу, выпрыгивает ошибка connection closed gracefully что делать?



уже не надо нашёл видео урок
http://delphiexpert.ru/view_lesson.php?id=46