[Oleg]

Код:

begin
  SMTP.Host := 'smtp.mail.ru'; // испытанно на: yandex'e, mail'e
  SMTP.Port:=25;   
  SMTP.Username:='________';  // логин
  SMTP.Password:='____';     // пароль
  SMTP.AuthenticationType:=atLogin;
  with IdMessage do
     begin
      Body.Assign(Memo1.Lines); // Текст из Memo
      From.Text := '_______'; // от кого
      Recipients.EMailAddresses := '_____'; //кому
      Subject := '';
      end;
   SMTP.Connect;
   try
  showmessage('подключение произведено успешно');
  SMTP.Send(IdMessage);
   finally
      SMTP.Disconnect;
   end;
end;

Кстати, а где твой код ?